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20.  Abstract  (Continued) 

basis.  Data  are  retrieved  from  this  file,  processed,  and 
displayed  interactively  or  in  batch.  Plot  output  is  generated 
on  a Tektronix  4014  or  an  incremental  plotter  (e.g.,  Calcomp) . 

A small  sample  of  available  processing  options  includes  ampli- 
tude spectrum,  harmonic  analysis,  digital  filtering,  blade 
static  pressure  coefficient,  and  blade  normal  force  coeffi- 
cient. This  program  will  accommodate  data  from  multiple  sen- 
sors simultaneously  for  processing  of  functions  with  two  geo- 
metric independent  variables  (e.g.,  chord  and  radius)  .j  Output 
options  include  printout,  single  or  multiple  curve  X?*  plots, 
contour  plots,  and  pictorial  representation  of  3-rdlmensional 
surfaces.  User  input  is  free  field  with,  errors^diagnosed 
where  possible.  Prompting  for  available  command  input  is 
optional'.' 


This  reporters  in  two  volumes.  Volume  I is  a user's  manual 
and  Volume  lr-»is  a systems  manual  for  assistance  in  program 
maintenance,  modification,  and/or  installation. 
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PREFACE 


The  AH-lG  Helicopter  Aerodynamic  and  Structural  Loads  Survey 
conducted  under  Contract  DAAJ02-73-C-0105  was  awarded  in  June 
1974  by  the  Applied  Technology  Laboratory,  U.S.  Army  Research 
and  Technology  Laboratories  (AVRADCOM)  to  produce  a comprehen- 
sive base  of  helicopter  test  data.  In  particular,  measure- 
ments were  taken  of  parameters  such  as  airfoil  surface  pres- 
sure, leading-edge  stagnation  point,  local  flow  magnitude  and 
direction,  blade  accelerations,  bending  moments,  and  the 
attendant  responses  in  the  control  system  and  airframe.  The 
output  of  367  transducers  was  recorded  continuously  and  simul- 
taneously. Over  72,000  separate  functions  of  time  were  digit- 
ized, recorded  on  digital  tapes,  and  delivered  to  the  Applied 
Technology  Laboratory . The  results  of  the  above-mentioned 
contracted  effort  are  documented  in  Report  USAAMRDL-TR-76-391 . 

The  Operational  Load  Survey  Data  Management  System  was  devel- 
oped under  Contract  DAAJ02-77-C-0053  awarded  in  September  1977 
by  the  Applied  Technology  Laboratory  (ATL).  The  software 
developed  under  this  contract  is  primarily  designed  to  process 
data  taken  during  the  AH-lG  Helicopter  Aerodynamics  and  Struc- 
tural Loads  Survey  and  other  similar  test  programs.  Documen- 
tation prepared  under  this  contract  consists  of  two  volumes. 
Volume  I provides  user  instructions  and  information  on  the 
analytical  methods  used  in  the  software.  Volume  II,  Systems 
Manual,  details  the  various  programming  considerations. 

Technical  program  direction  was  provided  by  Mr.  D.  Merkley  of 
ATL.  Principal  Bell  Helicopter  Textron  personnel  associated 
with  the  current  contract  were  Messrs.  R.  B.  Philbrick,  A.  L. 
Eubanks,  and  W.  R.  Dodds. 


xGerald  A.  Shockey,  Joe  W.  Williamson,  and  Charles  R.  Cox, 
AH-lG  HELICOPTER  AERODYNAMIC  AND  STRUCTURAL  LOADS  SURVEY, 
Bell  Helicopter  Co.,  USAAMRDL  Technical  Report  76-39,  Eustis 
Directorate,  U.S.  Army  Air  Mobility  Research  and  Development 
Laboratory,  Fort  Eustis,  Va.,  February  1977,  AD  A036910. 
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1.  INTRODUCTION 


This  volume  documents  the  source  code  for  the  Operational 
Loads  Survey  - Data  Management  System  (OLS/DMS)  and  should 
assist  the  programmer/analyst  in  modification,  maintenance, 
and  installation  of  the  system.  However,  the  reader  must  be 
familiar  with  Volume  I of  this  report  before  reading  Volume 
II,  since  many  structural  features,  concepts,  and  terms  for 
the  system  are  introduced  and  defined  in  Volume  I.  Volume  I 
describes  the  purpose,  capabilities  and  analytical  techniques 
of  the  system,  and  provides  instructions  for  system  commands. 

The  CLS/DMS  source  code  is  organized,  written,  and  commented 
so  as  to  minimize  the  difficulties  of  software  maintenance  and 
modification.  This  document  was  written  both  to  further 
clarify  the  flow  and  structure  of  the  system  and  to  provide 
specific  assistance  for  certain  kinds  of  system  modifications. 
Section  2 of  this  volume  documents  the  File  Creation  Program 
and  also  explains  the  detailed  structure  of  the  Master  File. 
Section  3 describes  the  Processing  Program,  including  inter- 
pretation of  command  steps,  processing,  and  graphics.  Various 
utility  routines  that  are  used  throughout  the  programs  are 
described  in  Section  4.  Appendixes  A and  B list  the  meanings 
for  each  of  the  common  variables  in  the  File  Creation  Program 
and  the  Processing  Program.  This  information  is  essential  to 
understand  and  maintain  the  code.  Appendix  C gives  the  Job 
Control  Language  and/or  Time-Sharing  Option  commands  to  com- 
pile, edit,  and  execute  the  code. 

Two  specific  kinds  of  system  modifications  are  documented  with 
particular  detail.  Modification  of  the  File  Creation  Program 
to  accept  tape  formats  other  than  the  BHT  Ground  Data  Center 
(GDC)  standard  tape  format  is  discussed  in  Section  2.3. 
Interface  requirements  for  replacement  of  a processing  module 
are  discussed  in  Paragraph  3.4.4.  When  a new  processing 
module  is  to  be  interfaced  or  when  a replacement  module 
requires  new  user  instruction  specifications,  a modification 
of  the  user  interface  tree  structure  is  required.  This 
structure  is  discussed  in  detail  in  Paragraph  3.3.2. 

Transportation  of  a large  software  system  from  the  computer 
system  it  was  designed  for  (in  this  case  an  IBM  370/168  or  an 
IBM  360/65)  to  a different  computer  system  can  be  a difficult 
and  time-consuming  process.  In  coding  the  OLS/DMS,  a careful 
attempt  has  been  made  to  minimize  these  difficulties  and 
assure  the  transportability  of  the  software.  The  code  is 
written  entirely  in  FORTRAN  and  use  of  IBM  extensions  to 
American  National  Standard  (ANS)  FORTRAN  have  been  limited. 
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However,  requirements  for  various  system  capabilities  have 
made  necessary  the  use  of  certain  system,  hardware,  and 
installation  uependent  code.  All  such  code  is  identified 
and  explained  in  Section  5.  In  addition,  system,  hardware, 
and  installation  dependent  code  is  identified  in  the  program 
source  statements  with  rows  of  stars,  above  and  below  the 

nonstandard  code. 
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2.  FILE  CREATION  PROGRAM 


2.1  MASTER  FILE  STRUCTURE 

The  Master  File  is  a large  direct  access  file  containing  re- 
cords that  are  individually  addressable  by  number  and  are  1024 
bytes  long.  A numerically  contiguous  sequence  of  these  re- 
cords forms  a partition  and  is  referenced  by  an  offset  speci- 
fied in  the  master  file  directory,  which  is  always  absolute 
record  1 (Figure  1). 

The  first  four  bytes  of  this  directory  are  four  characters, 
which  when  set  to  '$$$$'  indicate  that  the  entire  file  is 
initialized  so  that  any  record  may  be  referenced  directly. 

The  next  entry  is  an  integer  giving  the  total  available  size 
of  the  Master  File  in  records.  The  third  entry  is  eight  bytes 
long  and  is  a string  called  the  superword,  which  is  the  key 
for  the  Master  File  Utility  Program  to  list  or  delete  parti- 
tions without  individual  passwords  or  to  restore  the  whole 
Master  File  from  tape.  Following  the  superword  in  the  direc- 
tory record  is  a sequence  of  63  possible  16-byte  partition 
specifications.  The  first  eight  bytes  of  a partition  specifi- 
cation form  a string  containing  the  partition  name.  The  next 
four  bytes  form  an  integer  giving  the  offset  for  the  parti- 
tion. The  final  four  bytes  give  the  length  of  the  partition 
in  records. 

The  initial  record  for  a partition  is  specified  by  adding  one 
to  the  partition  offset  (Figure  2).  This  record  contains  in- 
formation about  the  partition  as  a whole.  The  user's  name  is 
contained  as  a string  in  bytes  1-16.  In  bytes  17-32  is  the 
password  which  the  user  must  have  to  modify  or  replace  the 
partition.  The  third  entry  is  the  directory  offset,  which 
when  added  to  the  partition  offset  gives  new  offset  for  rela- 
tive addressing  of  the  partition  directory.  Entries  four  and 
five  specify  the  partition  directory  size  and  partition  data 
area  size  respectively  in  records. 

The  next  sequential  record  contains  the  date  and  time,  in 
string  form  as  indicated  by  Figure  3,  that  the  partition  was 
last  accessed. 

The  first  directory  record  comes  after  the  data  records  in  the 
partition  and  always  contains  the  initial  record  of  the  coun- 
ter directory  (frequently  the  only  record  in  the  counter 
directory).  Figure  4 illustrates  what  this  directory  might 
contain  if  there  were  more  than  127  counters  in  the  partition. 
Each  counter  entry  includes  a counter  followed  by  relative 
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Figure  1.  Absolute  record  #1 

master  directory  record. 


ENTRY  BYTES 


CONTENTS 


Fiaure  3.  Relative  record  #2  (partition  offset+2) 
partition  access  record. 


bytes  contents  counter  entry 


Figure  4.  Directory  relative  record  #1  (partition  offset  + 
directory  offset  +1) , counter  directory  initial 
record  (more  than  127  counters  assumed) . 


ENTRY  BYTES  CONTENTS  COUNTER  ENTRY 


Figure  5.  Directory  relative  record  #L  (partition  offset  + 

directory  offset  +L) , counter  directory  continuation 
record  with  termination. 


location  for  the  first  (possibly  only)  record  of  the  item  code 
directory  for  that  counter.  A negative  counter  signals  the 
end  of  the  counter  directory  as  shown  in  Figure  5. 

The  structure  of  each  item  code  directory  is  identical  to  the 
counter  directory  as  shown  in  Figure  6.  In  the  example,  the 
directory  contains  only  three  item  codes  (and  thus  uses  only 
one  record),  but  an  item  code  directory  could  contain  multiple 
records  and  hundreds  of  item  codes  as  shown  for  the  counter 
directory.  Each  item  code  entry  includes  a relative  location, 
which  points  to  an  information  record  in  the  partition  data 
area.  Thus,  only  the  partition  offset  is  added  to  this 
pointer  to  obtain  the  information  record  location. 

The  information  record  for  an  item  code/counter  data  stream 
contains  information  about  that  data  stream  and  marks  the  be- 
ginning of  data.  The  first  data  record  follows  the  informa- 
tion record  sequentially  and  all  data  records  for  that  item 
code/  counter  pair  follow  sequentially  and  contiguously. 

Figure  7 lists  the  contents  of  the  information  record.  Some 
of  the  values  in  this  record  are  necessary  for  processing  the 
data  stream  and  others  are  only  present  for  information  pur- 
poses . 

The  first  four  information  record  entries  are  available  for 
future  use  if  a program  is  written  to  condense  partitions 
which  contain  unused  areas  where  time  histories  have  been  de- 
leted. These  entries  refer  back  to  the  corresponding  item 
code  directory  record  and  position  within  the  record.  Entry 
five,  the  data  stream  length,  must  be  divided  by  the  number  of 
points  in  a record  (adding  one  for  a non-zero  remainder)  to 
arrive  at  the  number  of  records  in  the  data  stream. 

The  number  of  data  values  in  a record  is  obtained  from  the 
number  of  bytes  in  a record,  currently  1024,  and  the  data  word 
length,  which  depends  on  whether  the  data  are  calibrated  or 
uncalibrated  as  stored  (entry  6).  A calibrated  value  is 
stored  as  a four-byte  floating  number,  while  an  uncalibrated 
value  is  stored  as  a two-byte  integer,  giving  512  uncalibrated 
data  values  per  record  or  256  calibrated  data  values  per 
record.  Uncalibrated  data  can  be  calibrated  using  entries  27 
and  28. 

The  sample  rate  (data  points/second)  of  the  data  stored  is  ob- 
tained by  dividing  entry  23,  the  initial  sample  rate  on  digi- 
tal tape,  by  entry  24,  the  sample  rate  reduction  factor.  The 
data  type,  entry  25,  indicates  whether  the  data  are  time 
history  or  min/max  data. 
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ENTRY  BYTES  CONTENTS  ITEM  CODE  ENTRY 


Figure  6.  Directory  relative  record  #1  (partition  offset  + 
directory  offset  + I) , item  code  directory  for 
counter  'C'  (counter  entry  #2,  Figure  4). 
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Entries  9 and  10  indicate  the  time  offsets  in  seconds  applied 
to  the  data  stream  in  transfer  from  digital  tape  to  the  Master 
File.  Entry  9 is  for  information  purposes  and  indicates  the 
amount  of  data  discarded  in  an  effort  to  line  up  the  starting 
data  point  in  time  with  all  other  starting  data  points  from 
the  same  counter.  Entry  10  shows  the  amount  of  additional 
data  discarded  before  a subsequent  data  point  was  saved  on 
disc.  A negative  value  for  entry  10  indicates  no  time  align- 
ment was  done  even  though  data  from  other  item  codes  for  the 
same  counter  may  be  aligned.  The  additional  offset  is  then 
the  absolute  value  of  entry  10. 

The  other  entries  are  present  largely  for  information  and 
display  purposes  and  are  all  explained  in  Reference  2,  except 
for  the  digital  filter  cutoff,  entry  21.  This  entry  gives  the 
cutoff  of  the  low-pass  digital  convolution  filter  (in  Hz) 
applied  to  the  data  during  transfer  from  tape  to  disc.  A 
value  less  than  or  equal  to  zero  indicates  no  filter  was 
applied. 

Now  that  the  Master  File  and  partition  record  structure  have 
been  examined  in  detail,  the  overall  structure  of  the  Master 
File  can  be  considered  by  looking  at  Figure  8.  The  first 
record  of  the  Master  File  is  the  Master  File  directory  record 
which,  for  an  existing  partition,  supplies  an  offset  pointing 
to  the  initial  record  of  that  partition.  This  initial  record 
contains  a second  offset  pointing  to  the  partition  directory. 
The  partition  directory  first  record  is  the  initial  record  of 
the  counter  directory  which,  for  a given  counter,  points  to 
the  initial  item  code  directory  record  for  that  counter.  The 
item  code  directory  points,  for  a given  item  code,  to  the 
information  record  in  the  data  area  for  that  item  code/  coun- 
ter pair.  The  data  stream  follows  the  information  record 
contiguously. 

Some  advantages  of  the  Master  File  structure  are  now  evident. 
First,  a partition  as  a whole  is  easily  portable  since  every 
record  in  the  partition  is  located  with  relative  addressing. 
Second,  a partition  directory  is  easily  portable  separate  from 
the  partition  since  records  within  the  directory  are  located 
using  a second  order  of  relative  addressing.  Third,  there  is 
no  theoretical  limit  to  the  number  of  item  codes  or  counters 


2L.  J.  Tieman,  'GROUND  DATA  CENTER  STANDARD  DIGITAL  TAPE  FOR- 
MAT, ' Bell  Helicopter  Textron  Report  699-099-020,  Fort  Worth, 
Texas,  21  April  1976. 
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stored  or  to  the  amount  of  data  from  an  item  code/counter  data 
stream  which  can  be  saved.  Practically,  physical  disc  space 
limitations  will  limit  these  quantities. 

2.2  FILE  CREATION  PROGRAM  FLOW 

The  flow  sequence  of  the  File  Creation  Program  is  described 
here  with  close  reference  to  the  flowchart  on  Figures  9,  10 
and  11  using  the  numeric  label  just  outside  each  block. 

Block  1 MAIN  calls  INLIST  to  read  input  commands  according  to 
the  free  field  format  described  in  Volume  I . READF  is  used  to 
interpret  numeric  input  and  group  strings.  MATCHR  is  called 
to  recognize  keywords.  PACK  is  used  to  transfer  four  charac- 
ters to  one  four-byte  word. 

Block  2 MAIN  lists  the  number  of  errors  detected  by  INLIST 
and  then  calls  LISTCM  to  sort  and  list  the  data  requests.  Any 
duplicate  item  codes  or  counters  are  noted  and  the  duplicates 
rejected. 

Block  3 MAIN  checks  the  number  of  errors  detected  by  INLIST 
and  goes  to  an  error  termination  point  if  one  or  more  occurred 
or  if  no  input  was  requested;  otherwise,  the  program  goes  to 
Block  5. 

Block  4 is  an  error  termination  in  MAIN.  The  Master  File  has 
not  been  disturbed  at  this  point. 

Block  5 If  there  are  no  input  errors,  MAIN  calls  SETUP1  to 
read  the  first  record  of  the  Master  File  and  check  that  the 
Master  File  is  initialized.  If  the  Master  File  is  not  initia- 
lized properly  ('$$$$'),  then  the  routine  returns  an  error  and 
MAIN  goes  to  Block  4.  With  proper  initialization,  SETUP1 
double  checks  the  initialization  by  attempting  to  read  the 
numerically  highest  record  in  the  file.  Failure  on  this  read 
attempt  abnormally  terminates  the  job. 

Block  6 Assuming  that  the  previously  mentioned  read  attempt 
succeeds,  SETUP1  initializes  the  direct  access  scratch  disc 
file  using  the  sequential  alias  for  that  file. 

Block  7 SETUP1  also  provides  WMS,  RMS  and  FMS  (routines  which 
do  intermediate  checking  and  apply  the  relative  offsets 
before  performing  direct  access  WRITE,  READ  and  FIND  calls 
respectively)  with  preliminary  offset  and  check  values  for  the 
Master  File  and  the  scratch  random  access  file.  Control  is 
then  returned  to  MAIN. 

Block  8 - MAIN  then  calls  MAKRUM  which  sorts  the  partition 
names  by  ascending  location  in  the  file  and  attempts  to  match 
the  name  of  the  specified  ADD/NEW/REPLACE  partition. 

Block  9 - (Still  in  MAKRUM)  If  a match  for  the  requested 
partition  name  is  found,  the  program  goes  to  block  10;  if  not, 
the  program  goes  to  block  13 . 
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Figure  10.  File  Creation  Program  flow  diagram 
(second  part) . 
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Block  10  - (MAKRUM)  A check  is  made  on  whether  the  requested 
partition  name  was  supposed  to  be  'NEW'.  If  so,  an  error  has 
occurred  since  a partition  by  that  name  already  exists  and  the 
program  goes  to  block  4.  If  not,  the  program  goes  to  block 
11. 

Block  11  - (MAKRUM)  A check  is  made  on  whether  the  requested 
partition  name  was  supposed  to  be  replaced.  If  so,  the 
program  goes  to  block  12;  if  not,  it  goes  to  block  14. 

Block  12  - (MAKRUM)  The  partition  matched  is  removed  from  the 
Master  File  directory  and  then  the  mode  is  changed  from  'RE- 
PLACE' to  'NEW'.  Thus,  the  partition  name  will  be  retained 
but  different  data  will  be  added  to  the  partition.  Then  the 
program  goes  to  block  14. 

Block  13  - (MAKRUM)  No  match  for  the  requested  data  set  name 
has  been  found  so  the  program  checks  whether  an  'ADD'  or  'RE- 
PLACE' has  been  specified.  If  so,  an  error  has  occurred  so 
the  program  goes  to  block  4.  If  not,  the  program  goes  to 
block  14. 

Block  14  - All  gaps  between  the  last  record  of  a partition  and 
the  first  record  of  the  next  sequential  partition  are  elimi- 
nated. Any  gap  between  the  first  sequential  partition  and  the 
Master  File  directory  record  is  eliminated.  The  record  space 
following  the  partition  to  be  modified  is  maximized.  This 
process  of  moving  partitions  up  and  down  in  the  Master  File 
uses  a scratch  disc  file  so  that  a number  of  records  are  read 
from  the  Master  File  to  scratch  and  then  from  scratch  to  a new 
location  in  the  Master  File,  when  this  process  is  complete, 
the  total  number  of  Master  File  records  available  for  the 
partition  to  be  modified  is  computed.  Then,  the  program  goes 
to  block  15.  As  mentioned  in  Volume  I,  Section  3.2.1,  the 
entire  Master  File  could  be  destroyed  if  too  short  a time 
limit  were  specified  for  a run  of  the  File  Creation  Program. 

In  particular,  destruction  of  the  Master  File  would  occur  if 
block  14  of  the  File  Creation  Program  were  executing  when  the 
time  limit  was  encountered. 

Block  15  - (MAKRUM)  A comparison  is  made  of  the  number  of 
Master  File  records  available  and  the  total  number  of  records 
requested  for  the  partition.  If  fewer  Master  File  records  are 
available  than  requested,  the  program  goes  to  block  16;  other- 
wise, the  program  goes  to  block  17. 

Block  16  - (MAKRUM)  The  space  request  is  truncated  to  the 
amount  of  space  available  in  the  Master  File.  Then,  the  pro- 
gram goes  to  block  17. 

Block  17  - (MAKRUM)  The  space  request  (original  or  truncated) 
is  checked  to  assure  that  it  provides  a basic  amount  of  space 
for  a partition  or  a partition  increment.  If  the  space  is  in- 
adequate, the  program  goes  to  block  18;  otherwise,  the  program 
goes  to  block  19. 


Block  18  - Is  an  error  return  from  MAKRUM  to  MAIN  and  a termi- 
nation message  indicating  the  problem  is  generated.  At  this 
point,  the  directory  has  been  reset  excluding  the  partition  of 
interest. 

Block  19  - MAKRUM  returns  to  MAIN,  which  calls  SETUP2  to  pre- 
pare for  the  partition  creation/addition  process.  If  in  'ADD' 
mode,  the  existing  directory  is  transferred  to  the  scratch 
random  access  file  where  it  will  be  added  to  and  modified  in 
the  data  addition  process.  If  in  'NEW'  mode,  the  directory  is 
initialized  in  the  scratch  random  access  file.  Control  re- 
turns to  MAIN  and  the  program  goes  to  block  20. 

Block  20  - MAIN  checks  whether  ALIGN  has  been  specified  and  if 
so,  the  program  goes  to  block  21;  otherwise,  the  program  goes 
to  block  27. 

Block  21  - MAIN  calls  a routine  to  provide  alignment  correc- 
tion offsets  for  each  item  code  desired  for  all  counters. 

These  offsets  will  correct  for  time  skew  misalignment  in  the 
data.  The  routine  takes  the  lists  of  item-codes  and  counters 
and  provides  a number  of  data  points  to  be  discarded  (at  the 
original  data  rate)  at  the  beginning  of  each  item  code/counter 
pair  data  stream.  An  invalid  offset  is  indicated  with  a -1. 
Offsets  are  stored  on  disc  by  routine  EXCORE.  From  here  the 
program  proceeds  to  block  22 . 

Block  22  - MAIN  checks  to  see  if  a tape  format  other  than  the 
standard  BHT  format  has  been  specified.  If  so,  control  is 
transferred  to  block  23.  If  not,  control  is  transferred  to 
block  24. 

Block  23  - MAIN  calls  STRNGF  to  input  data  in  a format  other 
than  the  BHT  standard  tape  format.  See  Section  2.4  for  more 
information  on  the  required  format  for  STRNGF.  When  STRNGF 
returns,  control  is  transferred  to  block  35. 

Block  24  - MAIN  calls  READD  to  read  an  assignment  record  from 
the  tape.  READD  will  continue  reading  blocks  until  an  assign- 
ment record  is  found  or  all  tapes  have  been  read.  If  no 
assignment  record  is  located,  control  is  transferred  to  block 
35.  Otherwise,  an  assignment  record  is  returned  to  MAIN  and 
control  is  transferred  to  block  25. 

Block  25  - MAIN  calls  FITEM  to  scan  the  assignment  record  to 
determine  whether  any  requested  item  codes  are  present.  If 
not,  control  is  transferred  to  MAIN  with  zero  items  found 
(NMATCH=0 ) and  control  is  transferred  to  block  24.  If  some 
desired  items  have  been  found  (NMATCH>0),  selected  assignment 
record  information  is  saved  for  each  item  and  control  is  re- 
turned to  MAIN  and  then  to  block  26. 

Block  26  - MAIN  calls  READD  to  input  the  first  block  of  data 
for  a counter.  Three  possibilities  exist  on  return  from 
READD.  If  READD  has  indeed  found  an  initial  data  block  for  a 
counter,  the  program  goes  to  block  27.  If  READD  ran  out  of 
tapes,  the  program  goes  to  block  35.  If  a new  assignment 
block  has  been  read,  the  program  goes  back  to  block  25. 
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Block  27  - MAIN  calls  FCNTR  to  check  whether  this  counter  was 
requested.  If  not,  the  program  returns  to  MAIN  (MCNTR=-1)  and 
then  to  block  28.  If  the  counter  is  wanted,  the  program  saves 
some  information  particular  to  this  counter,  returns  to  MAIN, 
and  goes  on  to  block  29. 

Block  28  - This  counter  is  not  wanted  so  MAIN  calls  READD  to 
page  forward  to  the  CAL  record  and  calls  CALUPD  to  update  the 
calibration  values.  Then  the  program  returns  to  block  26.  An 
outside  possibility  exists,  if  there  is  an  error  on  the  tape, 
that  READD  could  return  with  an  assignment  record  or  an  out  of 
tape  indication.  In  these  cases,  the  program  would  go  to 
blocks  25  or  35,  respectively.  These  lines  were  left  off  the 
flowchart  for  simplification. 

Block  29  - MAIN  calls  TRANSC  to  transfer  data  for  the  counter 
from  tape  to  scratch  disc.  TRANSC  attempts  to  transfer  only 
the  data  blocks  required  for  storage.  Other  blocks  are  left 
off  (any  offset  for  the  counter  as  a whole  is  adjusted). 

TRANSC  pages  forward  to  the  CAL  record  and  then  returns  to 
MAIN  and  the  program  goes  on  to  block  30. 

Block  30  - MAIN  calls  CALUPD  to  update  the  calibration  factors 
based  on  the  CAL  record  present  in  scratch  common.  Then  the 
program  goes  on  to  block  31. 

Block  31  - MAIN  enters  a DO  loop  (through  block  33)  to  trans- 
fer the  data  from  scratch  to  the  partition.  MAIN  calls  LOCFIX 
to  modify  the  directory  to  reflect  the  counter/item  code  data 
stream  location  for  the  next  item  code  data  stream  to  be 
transferred.  LOCFIX  returns  to  MAIN  and  the  program  goes  on 
to  block  32 . 

Block  32  - This  is  a large  block  covering  a great  deal  of  de- 
tailed processing  and  two  options.  If  no  digital  filtering  is 
desired,  MAIN  will  call  SAVD  to  strip  the  data  for  the  item 
code  of  interest  out  of  the  scratch  file  and  write  these  data 
to  the  Master  File.  Data  can  be  calibrated  if  this  mode  is 
selected  and  the  data  rate  can  be  reduced  by  using  only  every 
n’th  data  point  as  specified  by  the  sample  rate  reduction 
factor.  If  more  data  is  requested  than  available,  then  the 
data  request  is  truncated  to  the  amount  available. 

If  digital  filtering  is  desired,  MAIN  will  call  SAVF  instead 
of  SAVD.  SAVF  will  perform  the  same  functions  as  SAVD  except 
that  the  data  are  digitally  filtered  and  calibration  must  be 
performed. 

Either  routine  returns  to  MAIN  which  then  calls  INIDAT  to 
write  the  information  record  on  the  Master  File  at  the  begin- 
ning of  the  data  stream.  INIDAT  returns  to  MAIN  and  the 
program  goes  on  to  block  33 . 
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Block  33  - This  block  represents  the  test  at  the  end  of  the 
MAIN  'DO'  loop,  which  checks  to  see  if  all  the  items  requested 
and  present  on  scratch  have  been  found.  If  the  'DO'  is  com- 
plete, the  program  goes  on  to  block  34. 

Block  34  - MAIN  compares  the  number  of  item  code/counter  pairs 
found  so  far  with  the  number  requested.  If  the  number  of 
pairs  found  so  far  is  complete,  the  program  stops  searching 
tape  and  goes  on  to  block  35.  If  all  requested  data  have  not 
been  found,  the  program  returns  to  block  26. 

Block  35  - MAIN  calls  RESTRD  to  copy  the  partition  directory 
from  the  scratch  random  access  file  to  the  top  of  the  parti- 
tion. RESTRD  returns  to  MAIN  which  then  annotates  the  Master 
File  directory  record  to  reflect  the  size  and  location  of  the 
partition.  Then,  the  program  goes  on  to  block  36. 

Block  36  - MAIN  checks  to  see  whether  a listing  of  the  modi- 
fied partition  was  requested.  If  so,  the  program  goes  to 
block  37;  if  not,  the  program  goes  on  to  block  38. 

Block  37  - MAIN  calls  MAP  to  list  the  item  code/counter  pair 
data  streams  present  in  the  partition  along  with  some  informa- 
tion on  each  data  stream.  Then  control  returns  to  MAIN  and 
the  program  goes  on  to  block  38. 

Block  38  - MAIN  checks  whether  a digital  tape  save  of  the  re- 
vised Master  File  is  wanted.  If  not,  the  program  goes  on  to  a 
normal  exit  at  block  40.  If  so,  the  program  goes  to  block  39. 
Block  39  - MAIN  calls  SAVALL  to  save  the  partition  on  digital 
tape.  SAVALL  then  returns  to  MAIN  and  the  program  goes  to 
block  40. 

Block  40  - Done. 

2.3  NON-BHT  DATA  FORMATS 

The  File  Creation  Program  can  be  modified  to  accommodate  data 
tape  formats  other  than  the  standard  BHT-GDC  format  through 
generation  of  an  appropriate  replacement  for  the  program  stub, 
STRNGF . The  rest  of  the  File  Creation  Program  will  continue 
to  provide  the  following  functions,  read  user  instructions, 
manage  Master  File  Space,  manage  partition  directory,  write 
data  to  Master  File.  The  subroutine  STRNGF  must  handle  all 
the  details  of  reading  the  data  from  digital  tape,  consult 
with  the  common  block  /LIST/  containing  the  user  instructions 
(see  Appendix  A),  provide  appropriate  information  for  each 
item  code/counter  pair,  and  provide  the  data  for  transfer  to 
the  Master  File  in  record  size  blocks. 

Table  1 lists  a prototype  version  of  STRNGF  showing  the  se- 
quence which  must  be  followed  to  store  data.  The  routine 
ADDAT  is  appended  to  actually  write  data  to  the  Master  File. 
However,  code  must  be  provided  to  satisfy  the  required  func- 
tion of  STRNGF  as  listed  in  the  program  comments.  Data  must 
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TABLE  1.  PROTOTYPE  EXAMPLE  FOR  SUBROUTINE  STRNGF 


SUBROUTINE  STRNGF 

PROTOTYPE  • STRNGF • ROUTINE  FOR  HEADING  DATA  PROM 
NON— BH T— GDC  STANDARD  TAPE  FORMATS  POR  THE  OLS/OMS 
PILE  CREATION  PROGRAM. 

DIMENSION  INRECI2S6) 

COMMON /LOCUM/ i TEMN • ICNTRN  . IDROPP . 

$ I DAS 1 it IDRS1Z • I TE  MHC  , 1 T EMSU 
LOGICAL  LCAL 

COMMON/ INFO/ I RSI* . MLOC .LOCO . I PCLES • H I GH .LC AL . I RAT . 

* ISKIP.NPS. NPP . NOPF .ISEU.LSTHT.I AuO .INSIZ.INSIZQ. 

S IRDATS.IRSAVS.ICNTR.XAL1GN 

CQMMON/KARD/I TEMTPI26)  • I T EMM ( 26 ) .C ALSH ( 26 > * 

S CALCM ( 26) .CXMI26)  .CXBI26)  . NMATCH, DC AC ( 26 ) 

LOGICAL  LALIN.MAPIT.SAV1T .STRANG 

COMMON/LI ST/NCTRI 400) .NOPFST (400) . NP A ANT (400) . 

* ITEM! 400), HILT (400) . I CAL ( 4 00 ) . I SKP I 40 0 ) . 

$ NITEMS.NCNTRS. I SP AC . 1 T APES . I ADNU • LAL 1 N . 

S NAME! 2)  • NPkD ( 4 ) * NUSER ( 4 ) • MAP 1 T • SAV 1 T . STRANG 
COM MON/ F ILES/NRPS . NRSC .NSSC.NITT • NO 1 H . NRE A . NWR1 , 

* NSAV.IALI 


I END  = 0 
L to  = IRSIZ/2 

SET  OP  INPUT  PROM  NON-STANDARD  TAPE. 

INSERT  CODE  AS  APPROPRIATE. 

LOOP  OVER  SUBSETS  OF  THE  DATA  ON  TAPE. 

DO  500  1=1. 10000 

DETECT  THE  PRESENCE  OF  A SUBSET  OF  THE  REQUESTED 
DATA  CORRESPONDING  TO  ONE  COUNTER  AND  ONE  OR  MORE 
ITEM  CODES.  ASSIGN  A NUMBER  BETtoEEN  ONE  AND  THE 
DIMENSION  OF  THE  ARRAY  • I TEMto • TO  EACH  ITEM  CODE 
IN  THE  SUBSET  I ADJUST  THE  DIMENSIONS  OF  THE  ARRAYS 
IN  THE  COMMON  BLOCK  /KARO/  AS  NECESSARY).  SET 
SET  ITEMW(N)  FOR  EACH  ITEM  CODE  NUMBER.  'N',  TO 
THE  CORRESPONDING  ARRAY  POSITION  OF  THE  ITEM  CODE 
IN  THE  ARRAY  * I TEM • • IF  DATA  IS  TO  BE  STORED  IN 
INTEGER  FORM.  SET  THE  CORRESPOND  I NG  »CXM*  AND  *0X0* 
ARRAY  VALUES  FOR  CALIBRATION  ON  RETRIEVAL  FROM  THE 
MASTER  PILE.  SET  'NMATCH*  TO  THE  NUMBER  OF  ITEM 
CODES  IN  THE  SUBSET.  INSERT  CODE  AS  NECESSARY  TO 
PERFORM  THESE  FUNCTIONS 

LOOP  OVER  ITEMS  IN  THE  SUBSET 
OO  400  J = 1.  NMATCH 

SET  THE  VARIABLES  'ICNTRN*  AND  • ITEMRC'  TO  THE 
COUNTER  AND  ITEM  CODE  RESPECTIVELY.  SET  THE 
ARRAY  • 1NREC  • WITH  SOME  OF  THE  REQUIRED  VALUES 
FOR  THE  CORRESPONDING  INFORMATION  RECORD. 

INRECII)  = ITEM  CODE  = ITcMRC 

INREC(o)  = 1 IF  CALIBRATED  DATA  IS  TO  BE  STORED. 
C IF  INTEGER  OATA 

I NR EC ( 1 2—2  0 ) = ITEM  CODE  D I SCR IPT I ON/UN  I TS  tolTH 
UNITS  IN  LAST  SIX  BYTES 
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TABLE  1.  PROTOTYPE  EXAMPLE  FOR  SUBROUTINE  STRNGF  (Continued) 

1 NREC (27)  = DIGITAL  FILTER  CUTOFF,  -1.0  IF  NO 
FILTER  APPLIEO 

I NREC (28)  = SAMPLE  RATE  REDUCTION  FACTOR. 

= ISKPI 1 TEMfe I J) ) 

I NREC  C 29 ) = SAMPLE  RATE  OF  DATA  ON  TAPE  BEFORE 
SAMPLE  RATE  REDUCTION  FACTOR  IS 
APPLIED 

1 NREC (42)  - 2 (TIME  HISTORY  DATA,  NOT  MIN/MAX) 

CALL  MMS(2. INREC.LM. J.IERR) 

IFIIERR  .NE.  0 1 GO  TO  580 

SET  MCNTR  TO  THE  ARRAY  POSITION  IN  • NCT R • ARRAY 
FOR  THE  CURRENT  COUNTER.  I.E. 

SET  ICNTRN  = NC IR I MCN  T R ) 

INSERT  CODE  AS  NECESSARY 

CALL  LQCF I X ( NERR • I NFQ , IERR ) 

IF ( NERR  .NE.  OIGO  TO  550 

LOOP  OVER  RECORDS  OF  OUTPUT  FOR  ITEM  CODE 
DO  300  K = 1,10000 

READ  THE  DATA  FOR  THE  NEXT  RECORD.  IF  OUT  OF 
DATA,  BRANCH  TO  350.  GET  DATA  (256  CALIBRATED 
OR  512  INTEGER  VALUESI  INTO  THE  ARRAY  • I NREC* . 
SET  NUM  TO  NUMBER  OF  POINTS  IN  THE  RECORD. 

CALL  AD CAT ( 1NREC .NUM.ICHK) 

IFCICHK  • Ed . OIGO  TO  300 
I END  = 1 
GO  TO  350 

300  CONTINUE 

ADD  THE  INFORMATION  RECORD  FOR  THE  TIME  HISTORY 
JUST  TRANSFERRED  TO  THE  PARTITION. 

350  CALL  IN  I DAT ( J .MCNTR .NERR , I NFO, IERR) 

IF (NERR  .NE.  OIGO  TO  560 
IF ( IEND  .NE.  OIGO  TO  570 
400  CONTINUE 

500  CONTINUE 

GO  TO  1000 

DIRECT  ACCESS  MRITE  ERROR  STORING  INFOMATION  FILE 
ON  SCRATCH  DIRECT  ACCESS  OISC. 

550  WRITE(NWRI .9000) IERR 
GO  TO  1000 

ERROR  ADDING  INFORMATION  RECORD  TO  THE  PART  I TON. 

560  MR  I TEtNMR 1,9001  I NERR .INFO,  I ERR 
GO  TO  1000 

OUT  OF  SPACE  ON  THE  PARTITION 
570  MR I TE ( NMR 1,9002) IERR 
GO  TQ  1000 


ERROR  ANNOTATING  DIRECTORY  FOR  START  OF  DATA  STREAM 
580  MR  I TE ( N MR  1 .9003) NERR. I NFC, I ERR 


nn  nn  nn  nn  no  o noon  on  noon  „ „ ^ on 


TABLE  1.  PROTOTYPE  EXAMPLE  FOR  SUBROUTINE  STRNGF  (Concluded) 


1000  RETURN 


3000  FORMAT!  3X,  JVH***ERROR  STORING  INFO  RECORD  ON  SCR  AT  CH  » i 1 0/ / ) 
9001  FORMAT ( 3X»42H***ERR0R  STORING  INFO  RECORD  ON  PARTITION  » 

$ 3110/S) 

3002  FORMAT (3X,36H***RAN  OUT  OF  SPACE  ON  THE  PARTITION  /✓ ) 

9003  FORMAT ( 3X « 26H***ERR0R  SETTING  DIRECTORY  //) 

END 

SUBROUTINE  ADUAT ( I 0 AT  , NUM . ICHK 1 

ROUTINE  FOR  USE  BY  ROUTINE  ‘STRNGF*  TO  WRITE  DATA 
TO  THE  MASTER  FILE. 

IDAT  = DATA  ARRAY 

NUM  = NUMBER  OF  VALUES  IN  OATA  ARRAY 

( SHOULO  EUUAL  ‘ L 1 M * UNLESS  LAST  RECOROl 
ICHK  = PROBLEM  RETURN 

0 - NO  PROBLEM 

1 - DIRECT  ACCESS  MR  I TE  ERROR 

2 - OUT  OF  SPACE  FOR  MORE  WRITES. 

DIMENSION  I OAT ( 1) 

LOGICAL  LCAL 
LOGICAL  LCAL 

COMMONS  I NFO/i RSI Z, MLOC . LOCO. I POLES  * HI GH • LCAL . IRAT • 

* ISKIP.NPS.NPP.NOFF .ISEQ.LSTRT. IADD.INSI2. INSI2U. 

* IRDATS.IRSAVS.ICNTR.XALIGN 


ICHK  = 0 

l F l NUM  .LE.  0 1 GO  TO  1000 


LW  = IRSI2/2 

LIM  = IRSI2 

IF C LCAL )L IM  * LIM/2 

CALL  MMS( 1 • I D AT .LW.MLOC.IERR) 

IFC IERR  «GT.  0 > GO  TO  SOU 

NPS  = I MLOC- IDAS 12-1 )*LIM*ISKIP  + NUM*ISKIP 
MLOC  = MLOC  «■  1 

IF ( MLOC  .GT.  MLENI 11+4IGO  TO  510 
GO  TO  1000 

DIRECT  ACCESS  WRITE  ERROR 
500  ICHK  = l 

GO  TO  1000 

OUT  OF  DATA  SPACE  IN  PARTITION 
510  ICHK  = 2 


1000  RETURN 
ENO 


. 
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be  selected  from  digital  tape  using  the  user  instructions  in 
/LIST/.  Appropriate  data  must  be  extracted  from  the  tape  or 
provided  in  some  other  manner  for  the  information  record  for 
each  item  code/counter  pair.  In  some  instances,  STRNGF  may 
need  to  translate  the  identifiers  on  the  input  digital  tape  to 
four-character  item  codes  and  integer  counters  with  values 
between  1 and  32767. 

STRNGF  will  most  likely  provide  calibrated,  REAL  data  for 
transfer  to  the  Master  File.  However,  the  option  is  available 
when  the  program  is  executed  on  a system  with  INTEGER*2  capa- 
bility to  store  the  data  in  integer  format.  In  this  case, 
STRNGF  must  call  ADDAT  with  twice  as  many  records  containing 
INTEGER*2  values  as  would  be  provided  if  the  values  were  REAL. 
In  addition,  the  appropriate  calibration  factors  must  be  pro- 
vided, and  the  information  record  value  INREC(6)  must  be  set 
to  zero  to  indicate  that  integer  values  are  present. 

When  the  sample  rate  is  to  be  reduced,  STRNGF  must  perform 
this  function  before  supplying  the  data  to  ADDAT.  The  sample 
rate  reduction  factor  must  be  inserted  in  the  array  location 
INREC  (28).  Notice  that  the  array  location  INREC(29)  must 
contain  the  original  sample  rate  on  tape  before  the  sample 
rate  reduction  factor  is  applied. 

The  subroutines  LOCFIX,  ADDAT  and  INIDAT  are  called  by  STRNGF. 
The  routines  will  appropriately  manage  storage  of  the  data  on 
the  Master  File  and  annotation  of  the  directory.  The  routines 
also  monitor  error  conditions  so  that  the  error  returns  must 
be  appropriately  handled  by  STRNGF  as  shown  in  the  prototype. 
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3.  PROCESSING  PROGRAM 


3 . 1 STRUCTURE  AND  FLOW 

The  OLS/DMS  Processing  Program  was  designed  to  be  broken  into 
overlays  corresponding  to  various  functions  of  the  program. 
Figure  12  shows  a diagram  of  program  flow  from  block  to  block 
with  the  main  block  excluded.  The  Main  program  is  not  shown 
in  this  figure  and  serves  only  to  transfer  control  from  block 
to  block  and  store  certain  utility  routines  used  by  more  than 
one  block. 

The  Startup  or  Program  Initialization  block  extracts  setting 
commands  from  the  user  which  should  be  valid  throughout  the 
program  run,  and  initializes  and/or  validates  certain  files 
including  the  Master  File.  The  User  Command  Interface  reads 
and  checks  the  user  commands  and  produces  an  instruction  ma- 
trix (common  block  /DIRECT/)  which  can  be  interpreted  by  the 
other  overlay  blocks.  The  Processing  block  performs  all  the 
data  retrieval,  data  processing,  and  data  display  functions  of 
the  program  according  to  the  instruction  matrix.  The  Command 
Sequence  block  initializes  all  command  sequencing  functions 
and  performs  the  actual  editing  of  command  sequence  blocks. 

The  Menu  block  generates  non-data  displays  to  assist  the  user 
in  generating  processing  commands.  The  Terminate  function  is 
accomplished  in  program  MAIN. 

3.2  PROGRAM  INITIALIZATION 

Subroutine  STRTUP  is  the  control  routine  for  this  block.  The 
required  and  optional  user  inputs  for  this  phase  are  described 
in  Section  5.6  of  Volume  I.  The  entries  are  read  and  inter- 
preted using  the  READF  and  MATCHR  utilities,  as  well  as  the 
READl  and  READOP  routines  and  code  within  STRTUP. 

In  addition  to  extracting  user  control  options  for  the  program 
run,  the  Program  Initialization  block  performs  several  other 
setup  functions.  The  first  function  performed  in  STRTUP  is  to 
call  the  CPU  timer  initialization  routine,  SETIME.  SETIME  is 
installation  dependent  and  may  be  replaced  by  another  routine 
or  entry  name  which  starts  the  CPU  timer  (see  Section  5.4). 

After  the  user  options  have  been  specified,  STRTUP  calls 
ALLSCR  to  initialize  each  of  the  direct  access  disc  scratch 
areas,  including  SCF1,  SCF2,  and  the  temporary  scratch  area. 
There  are  two  possible  configurations  for  these  scratch  areas. 
For  the  first  possible  configuration,  each  scratch  area  is 
associated  with  a different  I/O  file  number  and  each  I/O  file 
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Figure  12.  General  flow  of  processing  program. 


number  is  presumably  associated  with  a different  area  on  the 
disc.  When  this  configuration  is  used,  the  optimum  results 
are  obtained  when  each  I/O  file  corresponds  to  a different 
physical  disc  drive  so  that  head  movement  is  minimized  during 
transfer  of  data  between  files. 

The  second  possible  configuration  for  the  scratch  files  places 
all  these  files  on  one  contiguous  area  of  disc  addressed  by 
one  I/O  file  number.  The  different  scratch  files  are  ad- 
dressed as  different  pseudo-devices  using  the  RMS,  WMS  and  FMS 
calls.  The  pseudo-device  numbers  are  listed  in  Section  4.1. 
For  either  configuration,  the  files  are  initialized  by  writ- 
ing dummy  records  on  every  record  position  of  the  sequential 
alias(es)  for  the  direct  access  file(s). 

After  ALLSCR  returns,  STRTUP  calls  INFOST.  This  routine  reads 
the  initial  group  of  the  Info  file  and  stores  the  keywords, 
item  codes,  and  associated  numeric  values  in  common  block 
/SINGIF/.  Then  STRTUP  calls  EDINIT  to  read  the  initial  record 
of  the  direct  access  Command  Sequence  (Edit)  file,  to  check 
the  size  of  the  file,  and  to  set  certain  variables  based  on 
this  size. 

Following  the  EDINIT  call,  STRTUP  extracts  the  name  of  the 
Master  File  partition  which  is  to  be  accessed  during  the  pro- 
gram run.  Then  DASTRT  is  called  to  find  the  partition  and  to 
set  up  the  retrieval  routines  to  address  the  partition  data. 

If  the  partition  name  is  successfully  found  and  the  Master 
File  is  properly  initialized,  STRTUP  transfers  the  current 
date  into  the  system  output  label,  DEFCOM  (in  common  block 
/DEFLT/ ) , and  exits.  If  the  partition  name  is  not  found,  the 
user  is  requested  to  enter  a corrected  partition  name. 

3.3  USER  INTERFACE 

The  User  Interface  generates  an  instruction  matrix  for  each 
command  step.  This  matrix  is  generated  by  extracting  from  the 
user  a sequence  of  entries  which  specify  option  selections  for 
the  matrix  values.  Relatively  few  of  the  instruction  matrix 
values  are  specified  for  each  command  step,  since  a small  sub- 
set of  the  total  number  of  command  specifications  is  required 
for  execution  of  each  different  command.  For  example,  a MENU 
command  will  not  require  specification  of  the  static  pressure 
or  outside  air  temperature  instructions. 

A pseudo  tree  structure  directs  the  program  in  specifying  a 
sequence  which  includes  all  entries  required  for  execution  of 
the  command  step  that  is  being  generated.  Each  element  of  a 
sequence  depends  upon  the  options  selected  for  the  previous 
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elements  of  the  same  sequence.  For  convenience  in  specifying 
defaults,  generating  HELP  messages,  and  explaining  the  entry 
sequences,  each  sequence  is  broken  into  one  or  more  substeps 
as  explained  in  Volume  I.  This  tree  structure,  together  with 
allowed  options  and  HELP  message  strings,  is  stored  as  data  in 
common  blocks . The  user  interface  code  interprets  the  stored 
tree  structure  and  maintains  the  syntax  for  user  input.  Thus, 
a change  in  user  commands  which  does  not  conflict  with  the 
current  command  syntax  should  require  only  a change  in  the 
block  data  statements  and  array  sizes  and  no  change  in  the 
executable  user  interface  code.  Paragraph  3.3.1  discusses 
this  code,  while  Paragraph  3.3.2  covers  the  requirements  for 
the  block  data  tree  structure. 

3.3.1  User  Interface  Routines 

USER  is  the  main  routine  for  the  user  interface  block.  Fig- 
ures 13  and  14  depict  the  flow  for  subroutine  USER,  which 
encompasses  most  of  the  general  logic  for  the  user  interface 
block.  The  other  routines  for  this  block  are  briefly  de- 
scribed below. 

INISTP  is  the  first  routine  called  by  USER  to  set  the  default 
values  for  the  step,  to  initialize  certain  pointers,  to  calcu- 
late the  CPU  time  for  the  previous  step  execution,  and  to 
print  the  'NEW  STEP'  message  that  prompts  the  user  for  the 
next  command  step. 

LININP  is  used  to  obtain  a scanned,  valid  line  of  user  input. 
LININP  will  obtain  the  line  from  system  input  or  the  command 
sequence  file  (using  EDINP)  according  to  the  edit  mode  indica- 
ted by  the  variable  LED  (in  the  common  block  /LEDIT/).  The 
line  is  scanned  by  READF  to  check  for  line  errors,  to  evaluate 
numeric  entrys,  and  to  delimit  string  entries. 

MATCHR  is  used  to  match  individual  strings  of  characters  with 
an  array  of  four-character  keywords  stored  in  common  block/ 
WLIST/ . 

INTERP  is  called  to  interpret  each  individual  user  entry.  The 
various  categories  of  entries  are  numbers,  nulls  (defaults), 
keyword  strings,  non- keyword  strings  (e.g.,  an  item  code), 
specified  defaults  (i.e.,  defaults  specified  by  a slash  which 
terminates  a substep),  and  comment  entries.  INTERP  assures 
that  the  entry  conforms  to  the  allowed  values  for  the  current 
tree  position  and  codes  the  entry  in  the  instruction  matrix. 
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INITIALIZE  DEFAULTS  AND  STEP  VARIABLES 


Figure  14.  User  interface  flow  diagram 
(second  part) . 


~ - - 


The  HELP  mode  prompting  message  generation  routine,  HELPR,  is 
called  by  LININP  when  the  HELP  indicator,  IHELP,  is  set  to 
one.  HELPR  prints  a prompting  message  for  the  current  entry 
and  looks  ahead  in  the  tree  structure  to  print  prompting 
messages  for  subsequent  entries. 

TREEUP  updates  the  tree  structure  position  and  the  substep 
number,  ISBSTP,  as  necessary. 

EDSAVE  (see  Paragraph  3.5.1)  is  used  to  save  a command  step  on 
the  command  sequencing  file. 

LISTAD  maintains  the  listing  of  the  current  command  step  in- 
cluding default  entries.  NTOSTR  (see  Section  4.2)  is  used  to 
convert  numeric  values  to  string  form. 

3.3.2  User  Input  Encoding 

The  basic  tree  structure  for  the  user  interface  is  contained 
in  the  two-dimensional  array  NPOINT.  The  second  array  index 
for  NPOINT  corresponds  to  the  tree  position  index.  Thus, 
each  tree  position  is  mapped  to  a unique,  positive  integer 
(e.g.,  6),  which  specifies  three  words  in  NPOINT  (e.g.,  NPOINT 
(1,6),  NPOINT  (2,6),  NPOINT  (3,6)).  The  first  index  is  dimen- 
sioned to  three  and  these  three  allowed  values  correspond  to 
three  kinds  of  information  stored  in  the  array.  Table  2 lists 
the  present  tree  structure  as  defined  by  NPOINT.  Figure  15 
shows  a general  example  of  part  of  the  NPOINT  structure. 

NPOINT  ( 1 , N)  gives  the  index  location  in  LWORDS  (in  common 
block  /HLPWDS/ ) for  the  appropriate  HELP  message  for  the  entry 
options  corresponding  to  the  tree  location  N.  The  actual 
index  location  given  will  be  for  the  LWORDS  value  specifying 
the  number  of  characters  in  the  HELP  message.  The  actual 
message  is  contained  in  the  subsequent  LWORDS  words  in  A4 
format.  Figure  16  shows  the  structure  of  a typical  HELP 
message  in  LWORDS. 

NPOINT  (2,N)  specifies  the  subsequent  tree  position  for  the 
entry  sequence  in  one  of  three  ways.  If  the  value  is  zero, 
the  entry  sequence  (command)  is  complete.  If  the  value  is 
positive,  the  three  lowest  order  decimal  digits  point  to  the 
tree  location  for  the  next  entry.  For  example,  NPOINT(2,N)  = 
3009,  specifies  that  NPOINT(l,9),  NPOINT(2,9)  and  NPOINT  (3,9) 
provide  pointers  for  the  next  entry.  The  thousands  digit 
gives  the  substep  number  for  the  next  entry.  A negative 
NPOINT ( 2, N)  value  implies  a branch  in  the  tree  structure  at 
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LWORDS(A) , 


NPQINT ( 1 , N ) 

HELP 

MESSAGE 

POINTER 

A 


NPQINT ( 2 ,N) 

SUBSEQUENT 
TREE  POSITION 
POINTER 
M+3000 


NPQINT  ( 3 ,N) 
ENTRY 

OPTION  LIST 
POINTER 
T 


, IENTOP (T) 


L WORDS (B) , 


NPQINT (1  ,M) 

HELP 

MESSAGE 

POINTER 
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NPOINT ( 2 ,M) 

■ 

SUBSEQUENT 
TREE  POSITION 
POINTER 
-P 


NPOINT ( 3 ,M) 
ENTRY 

OPTION  LIST 
POINTER 
U 


, IENTOP (U) 


LISTP(P) 

LISTP ( P+1 ) 

LISTP (P+2) 

LISTP (P+3) »3000+Q 
LISTP (P+4)  I 


LWORDS (C)4 


NPOINT ( 1 , Q) 

HELP 

MESSAGE 

POINTER 

C 


NPOINT ( 2 / Q) 

SUBSEQUENT 
TREE  POSITION 
POINTER 
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NPOINT ( 3 ,Q) 
ENTRY 

OPTION  LIST 
POINTER 
V 


• IENTOP (V) 


Figure  15.  Example  of  part  of  the  command  entry  tree  structure, 
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the  current  position  and  points  to  a sequence  of  pointer  en- 
trys  in  the  array  LISTP  (in  common  block  /ENTOPT/).  The  se- 
quence of  values  contained  in  LISTP  in  turn  point  to  possible 
next  tree  positions  in  a manner  identical  to  that  described 
for  positive  or  zero  values  of  NP0INT(2,N).  The  manner  of 
choosinq  the  appropriate  value  from  LISTP  is  described  in  the 
next  paragraph. 

NP0INT(3,N)  is  an  integer  value  which  points  to  the  first 
position  of  a sequence  in  the  array  IENTOP  (in  common  block 
/ENTOPT/).  Each  sequence  in  the  IENTOP  array  corresponds  to 
one  value  for  the  second  subscript  of  the  instruction  matrix, 
IDIRCT.  The  first  word  in  an  IENTOP  sequence  gives  the  second 
subscript  value  for  the  corresponding  pair  of  entries  in  the 
instruction  matrix.  Table  2 lists  the  meaning  of  the  instruc- 
tion matrix  positions.  Following  the  second  word  in  the 
IENTOP  sequence,  are  one  or  more  numeric  values  which  specify 
allowed  options  for  the  entry.  The  second  word  is  an  integer 
which  specifies  the  number  of  option  specifications.  The 
option  specifications  in  IENTOP  are  integers  which  can  have 
three  interpretations.  A positive  value  less  than  1000  speci- 
fies an  allowed  keyword  entry  for  the  option  from  the  keyword 
list  IAA  (in  common  block  /WLIST/).  A value  of  1000  specifies 
that  a non-keyword,  four-character,  string  entry  (e.g.,  an 
item  code)  is  an  allowed  option.  A negative  integer  specifies 
that  a numeric  entry  is  allowed.  The  absolute  value  of  a 
negative  integer  points  to  the  first  of  two  floating  entries 
in  the  RANGOP  array  (in  common  block  /ENTOPT/)  which  give  the 
lower  and  upper  bounds  for  the  numeric  entry.  Numeric  or 
string  specifiers  must  always  be  the  last  entry  in  an  IENTOP 
sequence.  Figure  17  shows  the  structure  of  a typical  IENTOP 
sequence.  If  the  current  NPOINT(2,M)  value  is  negative  so  as 
to  point  to  the  first  element  of  a sequence  in  LISTP,  each 
element  of  this  sequence  corresponds  by  sequence  position  to 
one  of  the  options  from  IENTOP.  For  example,  if  the  LISTP 
sequence  contained  the  values  3021,  3045,  3064,  3082,  the 
option  sequence  in  IENTOP  is  48,  24,  39,  40  and  the  keyword 
number  24  is  selected,  then  the  next  tree  position  would  be 
45. 

The  instruction  matrix,  IDIRCT,  is  a two-dimensional  array 
with  the  first  subscript  dimensioned  to  two.  The  second  sub- 
script corresponds  to  the  instruction  matrix  number  as  listed 
in  Table  3.  IDIRCT(1,N)  indicates  the  selected  option  for  the 
instruction  and  IDIRCT ( 2, N)  contains  the  number  or  non-keyword 
string  if  such  an  option  was  selected.  An  IDIRCT(1,N)  value 
which  is  positive  and  less  than  1000  indicates  the  position  in 
the  IENTOP  option  sequence  for  the  option  selected.  For 
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TABLE  2.  USER  INTERFACE  TREE  STRUCTURE  FOR  ENTRY  SPECIFICATION 
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TABLE  2.  USER  INTERFACE  TREE  STRUCTURE  FOR  ENTRY  SPECIFICATION  (CONTINUED) 


DATA  SOURCE  (SCF1,  SCF2  217  -69  (39,39,71,  151 

GROUP  OR  ITEM  CODE)  (29)  72) 
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2ND  3-D  PLOT  AXIS  (41)  331  4087  232 


TABLE  2.  USER  INTERFACE  TREE  STRUCTURE  FOR  ENTRY  SPECIFICATION  (CONTINUED) 


TABLE  2.  USER  INTERFACE  TREE  STRUCTURE  FOR  ENTRY  SPECIFICATION  (CONCLUDED) 
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TABLE  3.  USER  INTERFACE  INSTRUCTION  MATRIX  (CONCLUDED) 
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* When  all  three  observer  eye  positions  are  set  to  0.0,  then  the 
subroutines  which  generate  the  plots  supply  default  values . 
**See  array  IDVAL  (common  block  /DEFLT/)  in  Appendix  B. 


example,  if  the  corresponding  IENTOP  sequence  held  five  al- 
lowed options  and  the  third  option  position  was  selected,  then 
IDIRCT(1,N)  would  equal  the  integer  three.  An  IDIRCT(1,N) 
value  of  1000  indicates  that  the  entry  is  a non-keyword  string 
held  in  IDIRCT(2,N).  An  IDIRCT(1,N)  value  of  -1  indicates 
that  the  instruction  is  a floating  number  which  is  held  in 
IDIRCT(2,N).  This  floating  number  must  be  accessed  with  an 
equivalenced  array  which  is  normally  DIRECD. 

Default  values  are  coded  in  the  arrays  IDVAL  and  PVAL  (in 
common  block  /DEFLT/).  IDVAL  must  be  dimensioned  the  same  as 
IDIRCT  and  the  second  subscript  corresponds  to  the  option  number 
for  the  options  listed  in  Table  3.  IDVAL(1,N)  indicates  a 
default  control  number,  and  IDVAL(2,N)  indicates  a default 
value  as  described  in  Appendix  B. 

3.4  PROCESSING 

3.4.1  Processing  Flow 

The  control  routine  for  the  processing  block  is  PROCES  and  the 
flow  for  this  routine  is  shown  in  Figures  18  and  19.  PROCES 
first  calls  the  three  routines,  PROSET,  INPSET  and  OUTSET, 
which  interrogate  the  instruction  matrix  and,  as  necessary, 
set  up  input  functions  and  set  control  values.  The  routines 
also  check  for  errors  in  the  instruction  matrix.  For  example, 
a reference  to  a nonexistent  Info  file  group  will  be  detected 
in  routine  COMPGP  which  is  called  by  INPSET. 

PROCES  then  enters  a DO  loop  which  covers  the  column  positions 
(radial  stations).  Inside  this  loop,  PROCES  calls  ATTGET  to 
retrieve  and/or  calculate  the  attached  parameters  for  the  ap- 
propriate counter  and  time  span.  ATTGET  is  called  once  for 
each  column  position  since  the  counter  could  change  with 
column  number  if  the  input  is  from  a scratch  file.  ATTGET 
will  not  recalculate  or  retrieve  the  attached  parameters  if 
the  currently  stored  attached  parameter  data  are  appropriate. 

In  addition,  ATTGET  will  not  calculate  the  attached  parameters 
if  these  parameters  are  not  required  for  processing  or  display 
in  the  current  step  and  the  output  is  not  to  a scratch  file. 

Following  the  ATTGET  call,  PROCES  enters  a second,  nested  DO 
loop  which  covers  the  row  positions  (chord  positions).  The 
flow  inside  this  loop  is  quite  straightforward.  GETDAT  re- 
trieves the  appropriate  data  stream(s)  for  a row/column  inter- 
section, PROl  calls  the  appropriate  routine  to  process  the  da- 
ta, and  TSAVl  stores  the  data  either  on  the  temporary  scratch 
file  or  on  SCF1  or  SCF2 . GETDAT  may  retrieve  the  data  stream 
from  the  Master  File  according  to  the  user  item  code  or  Info 
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file  specification,  or  GETDAT  may  call  RTRVSC  to  retrieve  the 
data  from  SCF1  or  SCF2 . 

PROl  addresses  most  of  the  available  processing  routines. 

PR01  does  not  address  processes  which  must  treat  data  from 
more  than  one  row/column  position  simultaneously  (e.g.,  Cn 

integration).  For  such  processes,  PROl  passes  the  input  data 
straight  through  to  output,  treating  the  data  in  the  same  way 
that  data  is  handled  for  a DISPLAY  command.  When  the  output 
of  a process  is  to  be  stored  on  SCFl  or  SCF2  and  the  proces- 
sing has  been  completed  by  PROl,  TSAV1  calls  SCADD  to  save  the 
data  for  the  current  row  and  column.  Otherwise,  TSAVl  saves 
the  data  in  one  of  three  ways.  Data  streams  which  contain  a 
single  data  point  are  saved  in  a portion  of  the  array  XBUFF . 
Multiple  point  data  streams  are  written  to  the  temporary 
scratch  file.  However,  if  a single  row  position  is  being 
processed  in  the  command  step,  the  output  data  is  not  written 
to  the  temporary  scratch  file.  If  the  data  is  to  be  printed, 
one  of  the  printout  routines  (XYPRNT  or  XYPRN2 ) is  called  to 
print  the  data  stream  immediately). 

When  the  row  position  DO  loop  completes,  PROCES  checks  whether 
the  specified  process  is  an  integration  over  multiple  chord 
positions  (i.e.,  Cn,  Cc,  Cp  integrations).  If  not,  PROCES 

jumps  ahead  to  a call  to  TSAV2 . If  so,  PROCES  enters  a DO 
loop  which  covers  data  stream  sections.  Possibly  every  data 
point  for  every  row  (chord)  position  will  not  fit  into  the 
program  scratch  storage  array.  Thus,  each  data  stream  is 
broken  into  128  point  (one-half  of  a scratch  file  record) 
sections  and  all  the  data  for  each  section  is  processed  simul- 
taneously. GETEMP  retrieves  the  data  stream  sections  from  the 
temporary  scratch  file  and  PR02  selects  the  appropriate  inte- 
gration. When  the  loop  has  covered  all  the  data  stream  sec- 
tions, PROCES  calls  INTEMP  to  supply  the  appropriate  labels 
for  the  process  output. 

After  the  call  to  INTEMP,  PROCES  calls  TSAV2  to  store  the  re- 
sults of  the  integration.  If  the  output  is  to  be  stored  on 
SCFl  or  SCF2,  TSAV2  calls  SCADD  to  save  the  data  for  the  cur- 
rent column.  In  addition,  attached  parameter  data  are  stored 
using  more  calls  to  SCADD  if  those  data  have  not  already  been 
stored  for  the  current  counter.  If  the  output  is  printout, 
TSAV2  calls  XYPRNT  or  XYPRN2  to  print  the  output  data  stream 
immediately.  When  neither  of  the  above  output  methods  is  se- 
lected and  a single-column  position  is  to  be  processed  in  the 
command  step,  the  processed  data  are  left  in  the  scratch 
storage  array,  XBUFF.  Otherwise,  the  data  are  saved  by  one  of 
two  methods.  If  the  output  is  a single  data  point  for  the 
column,  (i.e.,  one  azimuth  position),  this  point  is  stored  in 
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the  XBUFF  array.  If  the  output  is  multiple  data  points  for 
the  column,  the  data  are  written  to  the  temporary  scratch 
file. 

The  same  call  to  TSAV2  may  be  executed  after  a jump  around  the 
DO  loop  which  performs  the  integrations.  In  this  case,  re- 
quired storage  or  printout  of  the  data  may  have  already  been 
performed  by  TSAV1 . If  the  output  is  to  SCFl  or  SCF2  and  the 
column  position  represents  a new  counter,  TSAV2  calls  SCADD  to 
save  the  attached  parameters.  If  the  output  is  printout,  this 
printout  has  already  been  performed  in  TSAVl.  For  graphic 
output,  the  output  data  are  stored  in  XBUFF  or  on  temporary 
scratch  unless  only  one  column  is  to  be  processed  in  the 
command  step . 

After  the  loop  over  the  column  positions  is  complete,  PROCES 
checks  whether  the  specified  process  is  a differentiation  over 
the  column  positions  (radial  stations).  If  not,  PROCES  jumps 
ahead  to  call  DISPOS.  If  so,  PROCES  calls  SLOPST  to  retrieve 
the  appropriate  data  from  the  temporary  scratch  file  and  to 
execute  SLOPE  to  calculate  the  blade  slope  for  each  radial 
position.  Then  TSAV3  is  called  to  store  the  output  from 
SLOPST. 

The  final  routine  called  by  PROCES  is  DISPOS.  DISPOS  selects 
the  proper  routine  to  perform  the  output.  If  the  output  is  to 
SCFl  or  SCF2  or  to  printout,  then  the  output  process  has  been 
completed  in  TSAVl,  TSAV2  or  TSAV3  and  DISPOS  simply  returns. 
Otherwise,  DISPOS  calls  the  appropriate  routine  for  the 
graphic  output  selected:  MULTPL  for  multiple  curve  X-Y  plots, 
SINGPL  for  single  curve  X-Y  plots  or  to  add  a curve  to  an  X-Y 
plot,  CONSET  for  a contour  plot,  and  SURSET  for  a surface 
plot. 

When  DISPOS  returns,  PROCES  sets  the  subroutine  argument,  IC, 
to  one  and  returns.  MAIN  transfers  program  control  back  to 
USER. 

3.4.2  Scratch  Files 

Scratch  files  SCFl  and  SCF2  are  written  by  subroutine  SCADD 
and  data  are  retrieved  from  these  files  by  subroutine  RTRVSC. 
Subroutine  INFSCR  is  used  to  obtain  information  about  the 
contents  of  a scratch  file.  The  scratch  files  are  direct 
access  and  Figure  20  shows  the  assigned  purpose  for  the 
scratch  file  records.  The  first  scratch  file  record  contains 
labels,  information  on  the  data  stored,  row  positions,  and 
column  positions.  Along  with  each  column  position  stored, 
there  is  a directory  for  the  associated  attached  parameter 
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data  and  other  information  including  the  counter  for  the  col- 
umn. The  column  position  and  attached  parameter  directions 
may  continue  into  the  second  record  of  the  scratch  file.  Fig- 
ure 21  shows  the  contents  of  the  first  record  of  the  scratch 
file . 

Data  directory  records  begin  at  record  three  of  the  scratch 
file.  Each  data  directory  record  contains  several  data 
directory  blocks  and  each  block  contains  the  record  locations 
for  the  data  corresponding  to  the  top  and  bottom  double-row 
elements  for  one  row/column  pair.  Along  with  the  data  loca- 
tion pointers,  some  information  regarding  each  data  stream  is 
included.  Space  is  provided  for  one  data  directory  block  for 
each  matrix  intersection  for  the  allowed  number  of  rows  and 
columns.  Figure  22  shows  a data  directory  record.  Data 
directory  blocks  require  16  words  (64  bytes)  and  scratch  file 
records  contain  256  words  (1024  bytes)  so  that  16  blocks  are 
written  to  each  record.  The  block  address  for  a given  row/ 
column  intersection  is  determined  by  varying  the  row  position 
first  and  then  the  column  position. 

Data  records  begin  after  the  last  reserved  data  directory 
record.  Data  streams  are  written  to  the  lowest  available  data 
records  in  the  order  received  by  SCADD. 

The  temporary  scratch  file  has  a different  format  from  SCFl  or 
SCF2 . This  file  will  not  hold  data  streams  corresponding  to 
every  row  and  column  intersection  simultaneously.  The  direc- 
tory for  this  file  is  contained  in  the  common  block  /GENSCR/ 
(see  Appendix  B).  The  flow  of  PROCES  is  such  that  this  file 
should  be  required  to  hold  no  more  than  one  data  stream  for 
one  row  element  of  each  column  position  and  one  data  stream 
for  each  row  element  of  one  column  position.  Data  streams 
corresponding  to  column  positions  are  entered  first  followed 
by  data  streams  corresponding  to  row  positions.  When  an 
integration  is  performed,  the  row  position  data  streams  are 
condensed  to  one  data  stream  which  is  written  as  a column 
position  data  stream  on  the  scratch  file.  The  row  position 
data  streams  for  the  next  column,  position  must  then  be  written 
to  a higher  location  on  the  scratch  file  to  avoid  overwriting 
the  new  column  position  data  stream. 

3.4.3  Info  File  Retrieval 

The  information  stored  on  the  Info  file  is  retrieved  and  pro- 
vided to  the  Processing  Block  by  several  different  routines. 
INFOST  is  called  in  the  Program  Initialization  Block  to  read 
and  transfer  the  information  from  the  initial  group  into  the 
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Figure  21.  First  scratch  file  record. 
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1 Top  Doubl®row  Element  Minor  Geometric  Position 

3 Short  Data  Stream  Label  (3A4) 

1 Top  Doublerow  Element  Item  Code  (A4) 

1 Top  Doublerow  Element  Number  of  Points 

1 Not  Used 

1 Bottom  Doublerow  Element  Start  Location  in  File 

1 Bottom  Doublerow  Element  Minor  Geometric  Position 

3 Short  Data  Stream  Label  (3A4) 

1 Bottom  Doublerow  Element  Item  Code  (A4) 

1 Bottom  Doublerow  Element  Number  of  Points 

I Not  Used 


(MOD (( (Column  Element  - 1)*18  + (Row  Element) ), 16)  - 1)*16 


Figure  22 


Structure  of  a data  directory  block 


common  block  /SINGIF/  (see  Appendix  B).  This  common  block  is 
interrogated  by  SINGGP  to  extract  the  appropriate  item  code 
for  a particular  keyword. 

For  other  Info  file  groups,  COMPGP  is  called  to  read  and 
transfer  the  group  information  into  the  common  block  /INFGRP/. 
Then  INF02  is  called  to  provide  the  proper  item  code(s)  for  a 
specified  row/column  intersection. 

3.4.4  Replacement/Addition  of  Analysis  or  Derivation  Routines 

Most  routines  which  execute  specific  analyses  or  derivations 
on  input  data  are  accessed  by  PR01  through  an  interface 
routine.  For  example,  to  calculate  blade  displacement,  PR01 
calls  the  interface  routine  DSPSET  and  DSPSET  calls  BLDISP  to 
perform  the  actual  calculations.  The  interface  must  take  the 
input  data  as  stored  in  the  program  and  provide  these  data  to 
the  processing  subroutine  in  the  required  format.  The  main 
stream  of  input  data  is  contained  in  the  array  XBUFF.  Data 
for  the  top  double-row  element  always  begin  at  array  element 
one  and  data  for  the  bottom  double  row  element  begin  in  the 
second  quarter  of  XBUFF  at  location  IBFSIZ/4  + 1 where  IBFSIZ 
(in  common  block  /SIZES/)  is  the  array  size  of  XBUFF. 

The  presence  of  top  and/or  bottom  double-row  elements  is 
indicated  by  the  value  M12INP  (in  common  block  /CNTLIP/)  where 
the  allowed  values  are: 

0 = both  double-row  elements  present 

1 = top  double-row  element  present  only 

2 = bottom  double-row  element  present  only 

The  number  of  data  points  in  the  data  stream(s)  is  given  by 
the  two-element  array  IDATPR  (in  common  block  /CNTLIP/)  where 
IDATPR(l)  is  the  number  of  data  points  for  the  top  double-row 
element  and  IDATPR(2)  is  the  number  for  the  bottom  double-row 
element.  Attached  parameter  data  are  contained  in  the  common 
block  /ATTPAR/  as  explained  in  Appendix  B.  Array  XSPARE  (in 
common  block  /B SPARE/ ) is  available  for  intermediate  storage 
of  data. 

After  the  process  is  completed,  the  interface  routine  must 
assure  that  the  output  data  streams  are  stored  in  XBUFF  with 
the  top  double-row  element  data  stream  starting  at  XBUFF(l) 
and  the  bottom  double-row  element  data  stream,  if  present, 
starting  at  XBUFF  (IBFSIZ/4  =1).  M120UT  should  be  set  to 
indicate  the  presence  of  the  top  and/or  bottom  double-row 
elements  using  the  same  allowed  values  as  M12INP.  IDATPR 
should  be  set  to  give  the  amount  of  data  for  each  double-row 
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element.  The  output  keywords,  KEYWD1  and  KEYWD2 , should  be 
set  to  indicate  the  type  of  data  present.  If  a double-row 
element  is  not  present,  the  corresponding  keywords  should  be 
set  to  zero.  If  the  double-row  element  is  present,  there  are 
three  cases . The  keywords  for  output  from  analysis  should  be 
identical  to  the  corresponding  input  keyword,  KEYQ1  or  KEYQ2 . 
The  keyword  for  a derivation  output,  which  could  in  turn 
become  the  input  to  a second  derivation,  should  be  set  by 
reference  to  the  KWDAT  array  in  subroutine  PROSET.  The  key- 
word for  other  derivation  output  could  be  set  to  any  non-zero 
value . 

Then  the  labels  and  label  pointers  should  be  set.  When  the 
process  is  a derivation,  the  dependent  variable  description, 
ITEMDS  (in  common  block  /LABELS/)  should  be  changed  as  neces- 
sary along  with  the  dependent  variable  units,  IUNITS.  LTYPE 
(in  common  block  /PRCOM/)  should  be  set  to  eight.  When  the 
process  is  an  analysis,  ITEMDS  should  not  be  changed  but  LTYPE 
should  be  set  to  indicate  the  type  of  analysis  as  listed  by 
HLABLS  (in  common  block  /PLABLS/) . In  either  case,  LXAX  (in 
common  block  /PRCOM/)  should  be  set  to  indicate  the  independ- 
ent variable  as  listed  by  XLABLS  (in  common  block  /PLABLS). 

3.5  COMMAND  SEQUENCING 

3.5.1  Command  Sequencing  File 

The  Command  Sequence  File  is  a direct  access  file  with  a 
structure  as  shown  in  Figure  23 . Each  record  contains  16 
command  lines  with  64  characters  (16,  4-byte  words)  per  line. 
Each  block  requires  7 records  for  112  available  lines. 

The  first  word  of  the  directory  record  is  an  integer  which 
specifies  the  total  number  of  records  in  the  file.  Following 
the  first  word  is  a sequence  of  two-word  entries,  correspond- 
ing to  the  command  sequence  blocks,  which  gives  the  four- 
character  block  name  in  the  first  word  and  the  record  location 
in  the  second.  An  empty  block  is  indicated  by  a blank  block 
name. 

3.5.2  Command  Sequencing  Routines 

Access  to  the  Command  Sequence  file  is  initialized  by  the 
routine  EDINIT  in  the  Program  Initialization  block.  EDINIT 
first  reads  the  directory  record  for  the  file  and  sets  certain 
control  values  based  on  the  size  of  the  file.  Then  EDINIT 
checks  the  location  pointers  in  the  directory  record  for 
reasonableness.  Finally,  EDINIT  reads  the  last  file  record  to 
check  that  the  command  sequence  file  is  properly  initialized. 
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The  main  routine  for  the  Command  Sequencing  block,  EDCNTL,  is 
called  to  perform  any  of  the  functions:  EDIT/NEW,  EDIT/CHANGE, 
EDIT/DELETE,  BUILD  or  EXECUTE.  EDCNTL  first  searches  the  Com- 
mand Sequence  directory  record  for  the  block  name  entered.  If 
the  name  is  found  and  the  function  is  EDIT/NEW  or  BUILD,  an 
error  message  is  generated.  An  error  message  is  also  gener- 
ated when  the  name  is  not  found  and  the  function  is  EDIT/ 
CHANGE,  EDIT/DELETE  or  EXECUTE. 

For  the  EDIT/NEW  or  BUILD  function,  EDCNTL  sets  the  variable 
LED  (in  common  block  /LEDIT/)  to  the  appropriate  value  (EDIT/ 
NEW  = 1,  BUILD  = 2)  and  searches  for  an  unused  command  se- 
quence block.  If  a blank  block  name  is  found,  the  name  is  set 
to  the  specified  name  and  the  command  line  storage  area  is 
preset  with  dollar  signs  for  every  line.  Upon  return  from 
EDCNTL,  the  User  Interface  block  causes  the  individual  command 
steps  to  be  saved  using  the  EDSAVE  routine. 

For  the  EXECUTE  function,  EDCNTL  sets  the  variable  LED  to 
three  and  sets  appropriate  pointers  for  retrieval  of  the  named 
block.  Upon  return  from  EDCNTL,  the  User  Interface  block 
causes  individual  command  steps  to  be  retrieved  using  the 
EDINP  routine. 

For  the  EDIT/DELETE  function,  EDCNTL  modifies  the  correspond- 
ing file  directory  entry  to  show  a blank  name. 

For  the  EDIT/CHANGE  function,  EDCNTL  reads  the  indicated  com- 
mand sequence  block  into  the  array  LINE  (in  common  block 
/ CNGBLK/ ) . Then  EDITCH  is  called  to  allow  the  user  to  modify 
the  sequence.  Upon  return  from  EDITCH,  the  argument  ISAVE  can 
have  a value  of  one  to  indicate  the  modified  sequence  should 
replace  the  original  sequence  or  zero  to  indicate  that  the 
original  sequence  should  be  left  unchanged  on  the  command 
sequence  file. 

3.6  MENUS 

Menu  displays  are  controlled  by  the  routine  MENU.  This 
routine  simply  calls  the  appropriate  routine  to  create  the 
specified  menu  display.  MCOUNT  is  called  to  list  the  counters 
present  on  the  Master  File  partition  currently  accessed  by  the 
program.  MITEMS  lists  the  item  codes  present  in  the  partition 
for  a given  counter.  INFRED  lists  the  groups  present  on  the 
Info  file.  LSCRAT  lists  the  contents  of  the  scratch  files. 
Finally,  EDITLS  lists  the  Command  Sequence  blocks  present  on 
the  Command  Sequence  file. 
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3.7  GRAPHICS 
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3.7.1  Tektronix/Calcomp  Plotting  Interface 

Plots  generated  on  the  Tektronix  4014  screen  are  nearly 
identical  to  corresponding  plots  generated  on  a Calcomp  or 
Houston  Instruments  DP-1.  In  addition,  differences  in  the 
source  code  required  for  the  Batch  mode  load  module  and  the 
Interactive  Graphics  load  module  are  held  to  a minimum.  These 
features  of  the  software  have  been  implemented  through  the 
generation  of  a group  of  plotting  interface  routines  and 
through  the  use  of  a modified  version  of  the  Calcomp  Preview 
routines.  Calcomp  Preview  is  a set  of  routines  provided  by 
Tektronix  in  the  PLOT-10  software.  The  PLOTS  routine  supplied 
by  Tektronix  has  been  replaced  by  a BHT  modified  version  for 
this  specific  application. 

The  plotting  interface  routines  replace  the  functions  of  the 
LINE  and  AXIS  routines.  In  addition,  the  plotting  interface 
routines  perform  five  functions  required  by  the  Processing 
Program.  First,  certain  residual  differences  between  calls  to 
the  Calcomp  routines  and  calls  to  the  Tektronix  and  Calcomp 
Preview  routines  are  handled  by  this  interface.  For  example, 
the  interface  routine  STPLT  handles  the  difference  between 
clearing  the  screen  on  the  Tektronix  and  moving  the  plot 
origin  to  start  a new  frame  on  the  Calcomp.  Second,  the 
interface  routines  generate  the  Tektronix  screen  format  for 
plotting  and  also  handle  positioning  of  the  cursor  on  the 
left-hand  side  of  the  screen  for  printed  user  input  and 
computer  messages.  Third,  data  plot  curves  which  exceed  the 
allowed  plotting  area  are  clipped  by  these  routines.  Fourth, 
the  facility  to  generate  dashed  curves  is  provided  by  these 
routines.  Finally,  access  to  the  graphic  cursor  and  evalua- 
tion of  cursor-specified  locations  in  user  coordinates  is 
provided  by  the  plotting  interface. 

The  plotting  interface  calls  only  four  Calcomp  routines:  PLOT, 
PLOTS,  NUMBER  and  SYMBOL.  LINE  and  AXIS  are  not  used.  In 
addition,  three  Tektronix  PLOT-10  routines  are  accessed  by  the 
plotting  interface  and  three  additional  PLOT-10  routines  are 
called  by  the  modified  PLOTS  routine.  The  modified  PLOTS 
calls  the  routines  INITT,  VWINDO  and  SWINDO.  The  plotting 
interface  calls  the  routines  MOVABS,  ANMODE  and  VCURSR.  Dummy 
versions  of  these  last  three  routines  are  provided  for  the 
Batch  mode  load  module. 

To  begin  each  plot  frame,  either  STALL  or  STPLT  must  be 
called.  STALL  should  be  called  for  the  first  plot  frame  to  be 
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generated  by  the  current  program  run.  STPLT  is  called  other- 
wise. Following  the  call  to  STALL  or  STPLT,  AXES  or  AREA  must 
be  called  to  define  the  allowed  plotting  area.  AXES  will 
generate  a box  around  the  area,  annotate  X and  Y AXES  and, 
depending  on  the  I GRID  and  NOTICS  settings  (in  common  block 
/DRW/),  draw  tic  marks  inside  the  box  and/or  a grid  inside  the 
box.  AREA  will  simply  define  the  allowed  plotting  area  with- 
out generating  any  axes. 

LYNX  is  called  to  draw  data  curves.  LYNX  will  generate  con- 
tinuous curves  or  dashed  curves  and/or  curves  with  characters 
centered  on  every  N'th  point.  LYNX  cannot  draw  lines  outside 
the  allowed  plotting  area.  DRAWN  is  called  to  draw  a line 
outside  the  allowed  plotting  area  according  to  the  dash  code 
used  by  the  last  call  to  LYNX  (see  Appendix  B). 

INSET  relocates  the  cursor  on  the  left-hand  side  of  the 
screen  for  printed  input  or  output.  The  cursor  is  located  on 
the  number  of  raster  points  down  from  the  top  specified  by 
LNCNT . 

PLOC  activates  the  graphic  cursor  and  evaluates  the  user 
specified  location  in  units  of  the  current  plot  frame.  The 
resultant  values  and  the  user  typed  character  are  returned  to 
the  calling  routine  for  processing  or  output.  One  position  is 
evaluated  for  each  call  to  PLOC. 

ENPLT  ends  all  plotting  by  the  Processing  Program. 

3.7.2  X-Y  Plots 

Both  simple  and  multiple  curve  X-Y  plots  are  generated  through 
the  routine  XYPLOT.  XYPLOT  calls  STPLT  or  STALL  as  necessary 
to  initialize  the  plot  frame.  These  routines  are  not  called 
if  a curve  is  being  added  to  an  existing  plot  frame.  X and  Y 
scaling  values  are  determined  using  SCALEV  and  the  axes  are 
drawn  using  AXES.  This  portion  of  the  code  is  also  skipped  if 
a curve  is  being  added  to  an  existing  plot  frame. 

LYNX  is  then  called  to  draw  the  curve  on  the  plot.  Following 
the  call  to  LYNX,  labels  are  drawn  for  the  plot  if  the  curve 
is  the  first  for  the  current  frame.  For  a multiple  curve 
plot,  a sample  of  the  type  of  dashed  line  used  by  LYNX  is 
drawn  using  the  routine  DRAWN.  This  line  is  then  annotated 
appropriately . 

PLOC  is  then  called  if  graphics  cursor  activation  was  speci- 
fied by  the  user.  INSET  is  called  and  the  returned  arguments 
from  PLOC  are  printed.  If  the  returned  character  from  PLOC  is 
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a ' C',  then  the  program  loops  back  to  call  PLOC  again.  Other- 
wise the  program  proceeds  to  call  INSET  and  return. 

3.7.3  Contour  Plots 

For  contour  plot  generation,  subroutine  DISPOS  calls  subrou- 
tine CONSET.  Based  on  the  two  independent  variables  for  the 
output  function,  CONSET  calls  NOFRST  or  YSFRST . NOFRST  is 
selected  when  the  first  or  time-related  dimension  is  not  one 
of  the  two  independent  variables.  YSFRST  is  called  when  the 
first  dimension  is  one  of  the  two  independent  variables.  Both 
of  these  routines  retrieve  the  output  data  and  interpolate  the 
data  matrix  to  obtain  a data  matrix  with  the  prescribed  number 
of  rows  and  columns  for  the  plot  format  selected. 

CONSET  then  calls  either  CONCYL  or  CONREC  for  a cylindrical  or 
rectangular  format,  respectively.  These  two  routines  follow 
the  same  general  flow.  After  STPLT  or  STALL,  and  AREA  are 
called,  a box  or  circle  is  drawn  around  the  allowed  plotting 
area.  Then  the  interval  between  contour  levels  is  set  using 
SCALEV  and/or  user  supplied  values. 

When  the  vertical  of  Z scale  is  set,  CONTUR  is  called  to  draw 
the  contour  plot.  CONTUR  finds  the  sequences  of  X-Y  positions 
which  form  the  individual  contours.  However,  CONNEC  is  called 
by  CONTUR  to  actually  draw  the  contours  using  LYNX.  In  addi- 
tion, CONNEC  uses  DRAWN  to  draw  line  samples  with  level  anno- 
tation in  the  label  area. 

Upon  return  from  CONTOUR,  additional  labels  are  drawn  under 
the  plot  and  then  INSET  is  called  to  reposition  the  cursor  for 
printed  I/O  for  the  next  command  step. 

3.7.4  Surface  Plots 

Surface  plot  generation  follows  the  same  general  flow  as  con- 
tour plot  generation.  Subroutine  DISPOS  calls  subroutine  SUR- 
SET.  Based  on  the  same  criterion  used  by  CONSET,  SURSET  calls 
NOFRST  or  YSFRST.  Upon  return  from  the  selected  routine,  SUR- 
SET calls  SURCYL  or  SURREC  to  draw  a surface  plot  using  re- 
spectively a cylindrical  or  rectangular  format. 

As  with  CONCYL  and  CONREC,  SURCYL  and  SURREC  follow  the  same 
general  flow  pattern.  Either  STPLT  or  STALL  and  then  AREA  are 
called  and  a box  is  drawn  around  the  allowed  plotting  area. 
PLSURD  is  then  called  to  draw  the  surface.  GTFORM  is  used  by 
PLSURD  to  generate  the  perspective  transformation  from  three- 
dimensional  point  locations  to  point  locations  on  a viewing 
plane. 


Upon  return  from  PLSURD,  SRRCRF  is  called  to  draw  annotation 
around  the  allowed  plotting  area. 

Upon  return  from  SRRCRF,  labels  are  drawn  below  the  plotting 
area,  INSET  is  called,  and  control  is  transferred  from  SURCYL 
or  SURREC  to  SURSET.  Next,  control  is  returned  to  DISPOS. 

3.8  DATA  RETRIEVAL 


Measured  data  are  retrieved  from  the  Master  File  with  the  rou- 
tines DATAIN  and  FINDIT.  FINDIT  locates  the  appropriate  data 
in  the  Master  File.  Two  separate  FINDIT  calls  are  required  to 
locate  an  item  code/counter  pair.  The  first  call  locates  the 
specified  counter  in  the  counter  directory  and  transfers  part 
or  all  of  the  corresponding  item  code  directory  into  the  ITEMD 
array  (in  common  block  /DATSET/).  The  second  call  locates  the 
specified  item  code  in  the  item  code  directory  and  transfers 
the  information  record  for  the  data  stream  into  the  ITMINF  ar- 
ray (in  common  block  /DATSET/).  Both  of  these  calls  to  FINDIT 
are  performed  by  DATAIN  so  that  a single  call  to  DATAIN  is  re- 
quired to  input  data  for  a specified  item  code/counter  pair. 
Based  on  the  requested  time  offset  and  the  time  history  length 
specified,  DATAIN  calculates  the  appropriate  first  record  and 
reads  the  requested  data.  Calibration  is  performed  if  the 
data  are  stored  on  the  Master  File  in  integer  format. 

Part  or  all  of  the  counter  directory  and  the  most  recently 
used  item  code  directory  are  kept  in  the  arrays  ICTRD  and 
ITEMD  so  as  to  minimize  reads  of  directory  records.  Thus,  if 
there  are  fewer  than  128  counters,  the  counter  directory  need 
not  be  read  more  than  once.  Similarly,  the  item  code  direc- 
tory need  not  be  read  more  than  once  if  that  directory  has 
fewer  than  128  entries  and  if  the  counter  does  not  change.  In 
addition,  the  information  record  need  not  be  re-read  until  a 
different  counter/  item  code  pair  is  required. 

FINDIT  checks  the  required  data  against  the  data  present  to 
prevent  unnecessary  reads  of  directory  records  and  information 
records . 


4.  UTILITY  ROUTINES 
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Certain  subroutines  are  used  in  both  the  File  Creation  Program 
and  the  Processing  Program.  These  routines  have  been  written 
to  be  general  in  nature. 

4.1  DIRECT  ACCESS 

All  direct  access  READ,  WRITE  and  FIND  operations  are  pro- 
cessed by  the  routines  RMS,  WMS  and  FMS,  respectively.  For 
example,  instead  of  a direct  access  read  statement  using  the 
IBM  format, 

READ (NR I ' IXXX) I ARRAY 

the  File  Creation  Program  and  Processing  Program  make  the 
call, 

CALL  RMS( 1 , I ARRAY, I SIZE, IXXX, IERR) 

Of  course,  the  normal  IBM  format,  or  some  equivalent  format 
for  a different  computer  system,  is  used  in  the  RMS,  WMS  and 
FMS  routines . 

The  routines  use  the  common  block  /MASS/  to  retain  device  num- 
bers, offsets  and  sizes.  Calls  to  RMS,  WMS  and  FMS  specify  a 
pseudo-device  number  which  is  an  index  for  the  arrays  in 
/MASS/.  In  the  example,  the  integer  * 1 1 is  the  pseudo-device 
number.  The  array  MDEV  contains  the  actual  I/O  file  numbers 
(data  set  reference  numbers)  for  the  direct  access  files.  The 
array  MOFF  contains  offsets  to  be  used  in  addressing  records 
in  the  direct  access  file.  Thus,  an  MOFF  value  provides 
relative  addressing  to  a group  of  contiguous  records  which 
form  a subset  of  all  the  records  present  in  the  direct  access 
file.  These  subsets  are  called  pseudo-devices.  Thus,  if 

MDEV  (2)  = 8 
MOFF  (2)  = 5248 

then  pseudo-device  '2'  is  direct  access  file  number  eight  and 
the  first  record  of  pseudo-device  two  is  actually  record  5249 
on  direct  access  file  number  eight. 

The  array  MLEN  gives  the  number  of  records  assigned  to  each 
pseudo-device.  The  array  MTOT  gives  the  total  number  of  re- 
cords and  MSIZ  gives  the  record  size  in  four-byte  words  for 
the  direct  access  file  which  contains  the  corresponding  pseu- 
do-device . 
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The  routines  RMS,  WMS  and  FMS  check  that  the  requested  rela- 
tive record  number  is  within  the  assigned  pseudo-device  area 
and  that  the  resultant  absolute  record  number  does  not  exceed 
the  boundaries  of  the  corresponding  direct  access  file.  These 
routines  also  check  that  the  requested  record  size  is  less 
than  or  equal  to  the  record  size  for  the  direct  access  file. 

Initialization  of  the  direct  access  files  and  setup  of  the 
/MASS/  common  block  are  performed  in  routines  other  than  RMS, 
WMS  and  FMS.  The  programs  and  routines  which  perform  initial- 
ization on  the  direct  access  files  are  listed  in  Section  5.1. 
Setup  of  the  /MASS/  common  block  is  performed  for  the  File 
Creation  Program  in  routines  SETUP1  and  SETUP2 . For  the 
Processing  Program,  /MASS/  is  set  up  in  the  routines  INITSC, 
DASTRT  and  EDINIT. 

IBM  OS  and  MVS  system  direct  access  files  can  be  initialized 
in  one  of  two  ways:  a write  can  be  specified  as  the  first 
file  operation  of  the  program  run  or  every  available  record  in 
the  file  can  be  written  on  using  a sequential  alias  for  the 
direct  access  file  number.  The  former  method  is  not  used 
because  the  File  Creation  Program  and  Processing  Program 
DEFINE  FILE  statements  specify  more  records  for  a direct 
access  file  than  would  ever  likely  be  physically  provided  for 
the  file.  Thus,  the  normal  system  initialization  of  the  file 
would  always  result  in  an  error. 

The  pseudo-device  numbers  in  the  File  Creation  Program  are 

1 = Initially  is  all  of  Master  File  and  then  during  the 

data  transfer  is  the  partition  of  the  Master  File. 

2 = Scratch  file  temporarily  containing  the  partition 

directory. 

The  pseudo-device  numbers  in  the  Processing  Program  are 

1 = Initially  is  set  to  read  all  of  the  Master  File  and 

after  the  Startup  Block  is  executed,  is  set  to  access 
the  specified  partition  of  the  Master  File 

2 = Directory  for  accessed  partition 

3 = SCF1 

4 = SCF2 

5 = Temporary  Scratch 

6 = Command  Sequence  File 

4.2  STRING  HANDLING 

Several  routines  are  used  by  the  system  to  process  strings. 
Subroutine  PACK  transfers  the  leftmost  character  (highest 
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order  byte)  from  each  of  four  sequential  words  to  the  leftmost 
four  bytes  of  a single  word.  The  sequence  of  the  characters 
is  maintained.  Thus  the  sequence  of  string  words  'AWWW' , 

1 BXXX ' , ' CYYY ' , 1 DZZZ ' becomes  ' ABCD ' . 

Subroutine  SHFSTR  transfers  a contiguous  sub-string  from  a 
string  containing  four  characters  per  four-byte  word  to  a set 
of  contiguous  character  locations  in  a second  string  contain- 
ing four  characters  per  four-byte  word.  Both  SHFSTR  and  PACK 
use  ' LOGICAL*l ' variables,  which  is  IBM-dependent  code  (see 
Section  5.2). 

NTOSTR  is  a routine  which  converts  floating  numeric  values  to 
strings.  PACK  is  used  to  create  four-character  words.  NTOSTR 
is  used  by  INTERP  to  convert  numeric  command  entries  to  string 
form  for  storage  of  command  lines. 

READF  performs  scanning  and  some  interpretation  of  free- field 
user  input  lines.  The  calling  routine  must  read  the  command 
line  into  the  array  ICHAR  (in  common  block  /KARD/)  storing  one 
character  per  four  byte  word.  READF  evaluates  numeric  entries 
as  floating  numbers,  calculates  the  starting  character  posi- 
tion and  number  of  characters  for  string  entries,  and  notes 
the  position  in  the  entry  sequence  of  null  entries.  This 
information  is  returned  in  the  common  block  /KARD/. 

Subroutine  MATCHR  is  frequently  called  following  a call  to 
READF  to  find  a match  between  a character  string  and  one  ele- 
ment of  an  array  of  four-character  strings.  The  first  charac- 
ter of  the  test  string  is  compared  with  each  of  the  first 
characters  from  the  keywords  stored  in  the  array  IAA  (in 
common  block  /WLIST/).  Subsequently,  the  following  character 
from  the  test  string  is  compared  with  the  corresponding  char- 
acters for  all  the  keywords  which  matched  for  the  previous 
character.  If,  after  every  character  of  the  input  string  has 
been  processed,  there  is  more  than  one  keyword  which  compares 
character  for  character,  the  entry  is  considered  ambiguous  and 
the  return  argument  IOUT  is  given  the  value  zero. 

If  no  keywords  match  the  test  string,  then  IOUT  is  set  to 
minus  one.  When  a single  keyword  matches  the  test  string,  the 
corresponding  index  for  the  keyword  is  returned. 

A maximum  of  four  characters  from  the  test  string  are  examined 
by  MATCHR.  Additional  characters  are  ignored.  Fewer  than 
four  characters  may  be  provided  and  then  only  the  characters 
supplied  are  processed.  If  an  unambiguous  match  is  found  for 
the  test  string  before  all  the  test  characters  have  been  pro- 
cessed, the  remainder  of  the  test  characters  are  still  com- 
pared and  a mismatch  will  result  in  a return  with  IOUT=  -1. 
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4.3  SORTING 


Several  routines  are  used  by  the  File  Creation  Program  and  the 
Processing  Program  to  sort  arrays  in  ascending  order  of  float- 
ing or  integer  value.  These  routines  are  SORTM , S0RT1 , S0RT2 , 
S0RT3,  and  SORTMF.  These  routines  all  use  the  binary  sort  al- 
gorithm and  retain  the  same  flow  pattern.  The  routines  differ 
in  the  number  of  associated  arrays  carried  along  with  the 
array  to  be  sorted  and  whether  the  array  to  be  sorted  contains 
floating  or  integer  values. 

SORTMF  sorts  an  index  array  corresponding  to  the  array  to  be 
sorted.  Then  the  routine  SORTID,  which  calls  SORTMF,  carries 
through  the  sort  using  the  location  pointers  in  the  index  ar- 
ray. The  sort  is  carried  through  on  a matrix  of  array  values 
with  the  column  elements  corresponding  to  the  index  pointers. 


5.  TRANSPORTABILITY  CONSIDERATIONS 


The  OLS/DMS  has  been  written  so  as  to  make  conversion  of  the 
software  to  another  computer  system  as  simple  as  possible. 
However,  certain  installation  and  system  dependent  code  has 
been  required  in  the  programs  to  achieve  the  requirements 
for  the  system.  Such  code  is  always  flagged  in  the  source 
listings  and  a corresponding  process  which  is  valid  for  the 
local  installation  can  be  inserted  in  the  place  of  the 
invalid  code.  The  various  types  of  nontransportable  codes 
will  be  discussed  here. 

5.1  DIRECT  ACCESS 

The  OLS/DMS  uses  the  IBM  direct  access  capability  exten- 
sively. All  of  the  READ,  WRITE  and  FIND  calls  are  restricted 
to  the  routines  RMS,  WMS  and  FMS . Thus,  conversion  of  the 
actual  reads  and  writes  for  direct  access  files  should  be 
reasonably  simple  if  there  is  a corresponding  process  at  the 
new  installation.  In  addition,  the  file  definition  state- 
ments (DEFINE  FILE)  are  always  grouped  near  the  beginning  of 
the  main  routine  for  each  program.  The  files  are  always  set 
up  with  256  four-byte  words  per  record,  the  records  being 
unformatted. 

The  initialization  code  for  direct  access  files  is  distri- 
buted to  four  different  routines.  The  Master  File  itself  is 
initialized  in  the  Master  File  Initialization  Program.  The 
direct  access  scratch  file  for  the  File  Creation  Program  is 
initialized  in  the  routine  SETUP1 . The  Command  Sequence 
file  is  initialized  by  the  Command  Sequence  File  Initializa- 
tion Program.  The  Processing  Program  scratch  files  are 
initialized  by  the  routine  INITSC. 

5.2  CODING  VARIATIONS 

The  OLS/DMS  uses  certain  nonstandard  IBM  FORTRAN  features. 
LOGICAL  *1  variables  are  used  in  the  routines  SHFSTR  and 
PACK  to  address  individual  bytes  of  four-byte  words  for 
character  manipulation. 

INTEGER  *2  variables  are  used  extensively  in  the  data  handling 
portions  of  the  File  Creation  Program  to  process  the  standard 
BHT-Ground  Data  Center  (GDC)  tape  format.  The  routines 
which  use  INTEGER  *2  variables  are  READD,  FITEM,  FCNTR, 

TRANSC , CALUPD,  SAVD  and  SAVF.  All  of  these  routines  would 
probably  need  to  be  replaced  in  the  STRNGF  routine  to  handle 
non-BHT-GDC  tapes . 
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INTEGER  *2  variables  are  also  used  in  the  Processing  Program 
in  the  data  retrieval  routine  DATAIN. 


The  following  form  of  input  statement  is  used  in  the  OLS/DMS 
to  detect  end  files  or  errors  on  input. 

READ ( NREA , 9000 , ERR=500 , END=500 ) list 

This  form  is  used  in  the  File  Creation  Program  in  the  subrou- 
tine INLIST,  in  the  Processing  Program  in  the  subroutines 
CMPGRP , INFOST,  LININP  and  READ1,  in  the  Master  File  Initiali- 
zation Program,  in  the  Command  Sequence  File  Initialization 
Program,  in  the  Question  and  Answer  Program,  and  in  the  Master 
File  Utility  Program. 

5.3  COMPUTER  WORD  SIZE  PROBLEMS 

Strings  are  stored  either  with  one  left  justified  character 
per  word  or  with  four  left  justified  characters  per  word. 
Strings  are  read  or  printed  in  A1  or  A4  format.  Thus,  conver- 
sion for  string  processing  should  not  create  much  of  a problem 
when  at  least  four  characters  can  be  stored  per  word  (instal- 
lation on  mini -computers  with  16-bit  (2-byte)  integers  would 
present  significant  problems).  However,  for  systems  where 
more  than  four  characters  are  stored  in  a word,  the  calls  to 
the  Calcomp  SYMBOL  routine  present  a problem  since  SYMBOL 
expects  a continuous  sequence  of  characters.  SYMBOL  is  called 
by  routines  XYPLOT,  CONREC,  CONCYL,  SURREC,  SURCYL,  ANNOT,  and 
MCHAR. 

The  READF  routine  has  two  integer  values  set  in  a data  state- 
ment, IBITS  and  NBYT.  IBITS  must  be  set  to  the  number  of  bits 
in  a character  byte  and  NBYT  must  be  set  to  the  number  of  cha- 
racter bytes  which  can  be  stored  in  a word. 

5.4  SPECIAL  ROUTINES 

Certain  installation  provided  routines  are  used  in  the  OLS/ 

DMS . Most  installations  have  corresponding  routines  or, 
alternatively,  the  routine  functions  are  not  critical  to 
program  operation.  The  function  of  each  of  these  routines  is 
described  here. 

Subroutine  FASTIO  is  used  to  avoid  FORTRAN  conversion  routines 
for  input  and  output  using  fixed  length  records.  A second 
reason  for  using  FASTIO  is  to  read  blocks  which  have  no  byte 
count  appended.  The  first  argument  for  FASTIO  is  one  of  the 
character  strings  'READ'  or  'WRITE'  to  indicate  a sequential 
input  or  output  operation,  respectively.  The  second  argument 
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is  the  I/O  file  number  (data  set  reference  number)  for  the  op- 
eration. The  third  argument  is  the  array  which  contains  the 
data  for  output  or  which  will  receive  the  data  for  input.  The 
fourth  argument  is  the  number  of  bytes  to  be  transferred.  The 
fifth  and  sixth  arguments  use  the  IBM  system  dependent  coding 
technique.  The  arguments  are  FORTRAN  statement  labels  for  a 
jump  on  return  from  the  subroutine.  The  character  is 
appended  to  the  front  of  the  label  in  the  subroutine  argument. 
The  fifth  and  sixth  arguments  give  the  return  locations  for  an 
end-of-file  condition  or  an  error  condition,  respectively. 

Subroutine  FASTIO  could  be  replaced,  if  necessary,  by  'A'  for- 
mat READ  and  WRITE  statements  (i.e.,  (3 ( 255A8 ) , 45A8 ) for  GDC 
tapes)  or  an  appropriate  system  routine  (e.g.,  BUFFER  IN  for 
Control  Data  machines).  The  detection  of  end  file  and  error 
conditions  provided  by  FASTIO  is  critical  only  in  subroutine 
READD  of  the  File  Creation  Program.  Subroutine  READD  is  used 
only  for  standard  BHT-GDC  tape  input. 

Subroutine  FASTIO  is  used  in  the  Processing  Program  only  in 
subroutine  INITSC.  In  the  File  Creation  Program,  FASTIO  is 
used  in  the  following  routines:  MAKRUM,  READD,  SAVALL,  SAVD, 
SAVF,  SETUP 1 , and  TRANSC.  However,  the  functions  of  READD, 
SAVD,  SAVF  and  TRANSC  would  have  to  be  replaced  for  non-BHT- 
GDC  data  tape  formats.  FASTIO  is  also  used  in  the  Master  File 
Initialization  Program,  the  Command  Sequence  File  Initializa- 
tion Program  and  in  the  Master  File  Utility  Program. 

Subroutine  DATE  returns  the  current  Gregorian  date  into  eight 
sequential  character  locations  of  the  argument  array.  The 
format  for  the  returned  date  is  a character  string  'mm/dd/yy' . 
DATE  is  used  in  the  Processing  Program  in  subroutines  DASTRT 
and  LISTER.  In  the  File  Creation  Program,  DATE  is  used  in 
subroutine  RESTRD . 

Subroutine  TIMOD  returns  the  current  time  of  day  into  twelve 
sequential  character  locations  of  the  argument  array.  The 
format  for  the  returned  time  is  a character  string  'hh.mm.ss. 
fr’ . The  right- most  character  is  set  to  a blank.  TIMOD  is 
called  in  the  Processing  Program  from  subroutine  LISTER. 

TIMEX  and  SETIME  are  entries  to  DATE  which  must  be  used  in 
concert  to  monitor  CPU  execution  time  for  the  calling  program. 
SETIME  is  called  to  initialize  the  CPU  timing  process.  The 
argument  to  SETIME  is  a REAL  value  specifying  a time  limit  in 
minutes.  This  number  must  be  greater  than  zero  and  less  than 
1440.  This  argument  is  not  critical  to  the  OLS/DMS  applica- 
tion, except  that  a reasonably  large  number  is  defined.  TIMEX 
is  called  to  obtain  the  CPU  time  consumed.  All  arguments  are 


83 


F 


returned  as  REAL  values.  The  first  argument  is  the  CPU  time 
used  since  the  last  call  to  SETIME.  The  second  argument  is 
the  CPU  time  used  since  the  last  call  to  TIMEX.  The  third 
argument  is  not  used  by  OLS/DMS.  This  argument  gives  the  time 
not  yet  consumed  from  the  interval  specified  in  the  call  to 
SETIME.  SETIME  is  called  in  the  Processing  Program  in  subrou- 
tine STRTUP . TIMEX  is  called  in  the  Processing  Program  in 
subroutines  USER  and  INISTP. 

Subroutine  PLTIME  is  a special  routine  which  estimates  the  re- 
quired plotting  time  for  a Calcomp  plot  and  outputs  this  time 
to  the  computer  operator.  Subroutine  PLTIME  is  called  in  sub- 
routine ENPLT  for  Calcomp  plots  only.  For  Tektronix  plots, 
the  PLOTS  subroutine  has  a dummy  entry  for  PLTIME. 

5.5  GRAPHICS 

The  graphic  software  was  discussed  extensively  in  Section  3.7. 
However,  the  graphics  features  related  specifically  to  trans- 
portability of  the  code  are  discussed  here.  For  incremental 
pen  output,  the  software  assumes  that  the  Calcomp  routines 
PLOTS,  PLOT,  SYMBOL,  and  NUMBER  are  provided  by  some  system 
library.  These  routines  must  be  either  the  actual  Calcomp 
routines  or  simulations  of  these  routines  for  plotting  on  an- 
other device.  The  plotting  interface  assumes  a plotting  area 
for  a plot  frame  of  8.5  inches  horizontal  and  11  inches  verti- 
cal. Approximately  9.7  inches  vertical  and  7.7  inches  hori- 
zontal are  actually  used  for  a frame.  The  plotting  interface 
moves  to  a new  plot  frame  position  by  incrementing  the  basic 
pen  origin  horizontally  to  the  right  at  least  8.5  inches.  A 
larger  increment  may  be  specified  by  changing  the  default 
value  for  the  variable  PLTWID  (in  common  block  /MDEP/)  or  by 
the  user  specifying  a larger  value  for  PLTWID  in  the  Ini- 
tialization Phase  of  a Processing  Program  run. 

Plotting  on  a graphics  terminal  assumes  that  a Tektronix  4014, 
the  PLOT-10  software,  and,  specifically,  the  Calcomp  Preview 
package  are  available.  SYMBOL  and  NUMBER  from  a Calcomp  pack- 
age are  also  required  if  not  present  in  the  Calcomp  Preview 
software . 

The  plotting  interface  should  generate  plots  without  modifica- 
tion on  a Tektronix  4010  (the  reduction  in  screen  size  may 
make  the  plots  harder  to  read).  However,  the  different  hard- 
ware character  size  could  cause  printed  computer  messages  and 
user  command  input  lines  to  overlap  the  plotting  area.  In 
addition,  when  the  APLOT  plotting  option  is  used,  INSET  will 
not  relocate  the  cursor  to  the  correct  vertical  position  on 
the  left-hand  side  of  the  screen  so  that  printed  input  and 
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output  lines  could  overlap  each  other.  This  problem  can  be 
eliminated  by  resetting  the  value  of  the  integer  INCTEK  (in 
common  block  /SIZES/)  from  -13  to  -22.  Some  of  the  problems 
of  printed  messages  overlapping  the  plot  area  can  be  elimina- 
ted by  resetting  the  allowed  number  of  characters  in  an  input 
line  to  30.  (See  common  block  SIZES  in  Appendix  B.) 

Conversion  of  the  program  to  run  on  some  other  graphics  termi- 
nal would  depend  on  the  presence  of  several  software  items. 

A Calcomp  emulation  package  would  be  required  which  provided 
the  routines  PLOT,  PLOTS,  NUMBER  and  SYMBOL.  The  PLOTS  rou- 
tine, called  once  for  each  plot  frame  for  the  interactive  gra- 
phics mode,  must  set  up  a simulated  plot  area  of  at  least  9.51 
vertical  inches  and  7.51  horizontal  inches.  The  origin  must 
be  set  initially  at  the  lower  left-hand  corner. 

The  Tektronix  PLOT-10  routine  ANMODE  is  always  called  when  the 
program  changes  from  drawing  plot  lines  to  reading  or  writing 
characters.  Some  corresponding  function  may  be  required  for 
other  plot  devices. 

The  Tektronix  PLOT-10  routine  MOVABS  is  used  to  reposition  the 
cursor  for  character  input  or  output  after  graphics  lines  and/ 
or  characters  have  been  drawn.  After  a fresh  frame  has  been 
created,  the  cursor  is  moved  to  the  upper  left-hand  corner  of 
the  screen.  When  a curve  is  added  to  an  existing  frame,  the 
cursor  is  moved  to  a raster  position  at  the  left-hand  side  of 
the  screen  which  corresponds  to  the  next  line  of  character 
printout  after  the  last  line  printed  or  entered.  The  program 
keeps  track  of  this  position  with  the  variable  LNCNT  (in  com- 
mon block  /STATUS/).  When  the  screen  is  cleared  for  a new 
plot,  LNCNT  is  set  to  a raster  number  corresponding  to  the  top 
line  on  the  screen  for  alphanumeric  I/O.  For  every  alphanu- 
meric line  which  is  read  or  written,  LNCNT  is  modified  by  ad- 
ding INCTEK  (in  common  block  /SIZES/).  Both  the  ANMODE  and 
MOVABS  calls  occur  in  the  subroutine  INSET.  For  application 
to  a different  graphics  terminal,  the  ANMODE  and  MOVABS  calls 
could  be  replaced  and  the  LNCNT  information  might  or  might  not 
be  useful. 

Subroutine  PL OC  accesses  the  virtual  cursor  using  subroutine 
VCURSR.  VCURSR  returns  the  cross-hair  location  in  terms  of 
the  simulated  9.51  inches  high  by  7.51  inches  wide  plotting 
area  established  in  PLOTS  with  a call  to  VWINDO.  For  a dif- 
ferent graphics  device,  the  graphics  cursor  function  might  be 
eliminated  or  some  substitute  for  the  cursor  position  evalua- 
tion might  be  found. 
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APPENDIX  A - FILE  CREATION  PROGRAM  COMMON 


/CALASC/  Stored  initial  calibration  factors  for  the  item 

codes  present  in  an  assignment  record  as  supplied  by 
that  assignment  record. 

CM  - Array  which  holds  the  slope  values  for  calibra- 

tion. CM(N)  corresponds  to  the  N'th  requested 
item  code  present  in  the  current  assignment 
record. 

CB  - Array  which  holds  the  intercept  values  for 

calibration. 


/DATAPE/  Information  on  the  data  tape  being  read. 

IRCNTR  - Current  record  number  on  the  data  tape  being 
read. 

NTPERR  - Number  of  tape  errors  encountered  so  far  in 
reading  the  data  tapes . 


/EXCORB/  Common  block  used  by  routines  EXSET  and  EXCORE  for 
extended  core  simulation.  These  routines  set  up  a 
two-dimensional  matrix  of  simulated  memory  while 
actually  storing  and  retrieving  the  values  from  a 
direct  access  disc  file. 

NROWSX  - Number  of  rows  (most  rapidly  varying  index)  in 
the  simultated  array. 

NCOLSX  - Number  of  columns  (less  rapidly  varying  index) 
in  the  simulated  array. 

NRECOF  - Offset  to  the  first  storage  record  available  to 
EXSET/EXCORE  in  the  direct  access  file  ad- 
dressed by  these  routines. 

NRECPR  - Direct  access  record  number  currently  held  in 

the  array  EXTREC.  If  NRECPR  = -1,  no  record  is 
present. 

NPRMOD  - Indicator  of  whether  the  record  currently 

stored  in  the  array  EXTREC  has  been  changed 
without  storing  the  changed  version  on  the 
disc. 
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- RMS,  WMS,  FMS  pseudo-device  number  for  direct 
access  storage. 

NRSIZE  - Size  of  a direct  access  record  in  four-byte 
words . 

EXTREC  - Storage  array  for  records  from  direct  access 
disc. 

/FILC/  Convolution  filter  multipliers. 

FI  - Central  value  for  the  convolution  function. 

FILTM  - Array  holding  values  for  the  convolution  func- 
tion. 

NFILT  - Number  of  convolution  function  values  held  in 
FILTM. 

/FILES/  I/O  file  reference  numbers. 


NRPS 

- Master  File  (=1) 

NRSC 

- Direct  access  scratch  file  (=12) 

NSSC 

- Sequential  scratch  file 

(=13) 

NITT 

- Data  Tape  (=21  for  first 

tape) 

NDIR 

- Time  skew  alignment  tape 

(=20) 

NREA 

- System  input  (=5) 

NWRI 

- System  output  (=6) 

NSAV 

- Digital  tape  for  copy  of 

a partition  (=15) 

IALI 

- Sequential  alias  for  the 
file  (=14) 

direct  access  scratch 

/INFO/  This  block  contains  a set  of  control  and  information 
values  for  processing  and  transferring  the  data. 

IRSIZ  - Number  of  two-byte  words  in  a Master  File  re- 
cord (=512) 
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MLOC 


- Next  available  partition  record  number  in  the 
data  storage  area. 

I POLES  - Set  to  zero  if  no  filtering  is  required  for  at 
least  one  of  the  requested  items  present  on  the 
current  assignment  record. 

HIGH  - Initially  set  to  the  lowest  digital  filtering 
breakpoint  requested  for  any  of  the  item  codes 
present  on  the  current  assignment  record.  For 
transfer  to  the  Master  File,  HIGH  is  set  to  the 
requested  digital  filter  breakpoint  for  the 
item  to  be  transferred. 

LCAL  - Set  FALSE  if  item  code  data  about  to  be  trans- 
ferred to  the  Master  File  is  not  to  be  calibra- 
ted, set  TRUE  otherwise. 

IRAT  - Sample  rate  for  the  data  on  digital  tape  corre- 
sponding to  the  current  assignment  record. 

ISKIP  - Sample  rate  reduction  factor  to  be  applied  in 
transferring  data  for  the  currently  specified 
item  code  to  the  Master  File. 

NPS  - Initially,  the  number  of  points  of  data  wanted 
for  a particular  counter  given  the  sample  rate 
of  the  data  on  tape.  NPS  must  be  divided  by 
ISKIP  to  calculate  the  proper  number  of  points 
to  transfer  to  the  Master  File.  After  transfer 
of  a data  stream,  NPS  is  the  number  of  data 
values  transferred  multiplied  by  ISKIP. 

NPP  - This  value  indicates  the  number  of  values  for 

each  item  code  present  on  the  scratch  disc  file 
before  transfer  to  the  Master  File. 

NOFF  - This  value  indicates  the  total  number  of  data 
samples  which  should  be  skipped  before  data 
from  a particular  item  code  is  transferred  to 
the  Master  File.  NOFF  should  reflect  both  the 
alignment  and  absolute  offsets. 

ISEQ  - This  value  gives  the  word  position  for  the 

first  data  value  on  a data  record  which  corres- 
ponds to  the  item  code  to  be  transferred  to  the 
Master  File. 

LSTRT  - Equivalent  to  ISEQ. 
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I ADD 

- Increment  which  must  be  applied  to  a location 
on  an  input  data  record  to  reach  the  next  data 
value  for  the  same  item  code.  Equivalent  to 
the  number  of  item  codes  present  in  the  assign- 
ment record. 

INSIZ 

- Number  of  two-byte  integer  words  in  a data  re- 
cord on  tape  (=3240). 

INS I ZD 

- Number  of  two-byte  integer  word  in  a data  re- 
cord stored  on  the  scratch  file  after  the  in- 
formation bytes  have  been  stripped  from  the 
front  (=3200). 

ICNTR 

- Current  counter  for  the  data  transferred  from 
tape. 

XALIGN 

- Time  skew  alignment  offset  in  seconds  to  be  ap- 
plied to  the  current  item  code/counter. 

/KARD/  Common  block  to  keep  track  of  data  from  the  current 

assignment  record. 

ITEMTP 

- ITEMTP (N)  gives  the  position  in  the  sequence  of 
item  codes  present  on  the  current  assignment 
record  of  the  N'th  requested  item  of  the  items 
on  the  assignment  record. 

ITEMW 

- ITEMW(N)  points  to  the  word  in  the  ITEM  array 
which  contains  the  item  code  which  corresponds 
to  the  N'th  requested  item  of  the  items  on  the 
assignment  record. 

CALSH 

- The  CALSH  array  gives  Calibration  Shift  values 
from  the  assignment  or  calibration  record  which 
correspond  to  the  same  item  codes  as  the  ITEMTP 
and  ITEMW  arrays. 

CALCM 

- The  CALCM  array  gives  Calibration  Command 
values  from  the  assignment  or  calibration 
record  which  correspond  to  the  same  item  codes 
as  the  ITEMTP  and  ITEMW  arrays. 

CXM 

- The  CXM  array  gives  calibration  slope  values 
from  the  assignment  or  calibration  record  which 
correspond  to  the  same  item  codes  as  the  ITEMTP 
and  ITEMW  arrays. 

I » 

i . 
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CXB  - The  CXB  array  gives  calibration  intercept 
values  from  the  assignment  or  calibration 
record  which  correspond  to  the  same  item  codes 
as  the  ITEMTP  and  ITEMW  arrays. 

NMATCH  - Number  of  requested  item  codes  present  on  the 
current  assignment  record. 

DCAL  - Delta  cal  values  from  the  assignment  or  cali- 
bration record  which  correspond  to  the  same 
item  codes  as  the  ITEMTP  and  ITEMW  arrays. 


/KARD1/  This  common  block  corresponds  identically  to  common 
block  /KARD/  as  described  in  Appendix  B. 


/LIST/  This  block  contains  the  interpreted  user  instruc- 
tions for  transfer  of  data  from  tape  to  the  Master 
File . 


NCTR  - Array  of  requested  counters. 

NOFFST  - Offsets  to  be  applied  to  time  histories  from 

the  counters  in  NCTR  which  correspond  by  index. 
Offsets  are  stored  in  seconds  as  floating  num- 
bers . 

NPWANT  - Length  of  time  history  to  be  transferred  for 

the  counters  in  NCTR  which  correspond  by  index. 
Times  are  stored  in  seconds  as  floating  num- 
bers . 

ITEM  - Array  of  requested  item  codes. 

FILT  - Break  frequencies  for  low  pass  digital  filters 
to  be  applied  to  the  time  history  from  the  item 
codes  in  ITEM  which  correspond  by  index.  Break 
frequencies  are  stored  in  Hz.  Negative  or  zero 
values  indicate  no  filtering  should  be  applied. 

ICAL  - Indications  of  whether  to  store  time  histories 
in  calibrated  or  integer  format.  The  indica- 
tions correspond  by  index  to  the  item  codes  in 
ITEM.  ICAL(N)  = 0 means  no  calibration  and 
ICAL(N)  = 1 means  calibration. 
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TT 


N ITEMS 
NCNTRS 
ISPAC 

I TAPES 
IADNU 


LALIN 

NAME 

NPWD 

NUSER 

MAPIT 


SAVIT 


STRANG 


- Sample  rate  reduction  factors  for  the  time  his- 
tories from  the  item  codes  in  ITEM  which  corre- 
spond by  index.  Values  are  stored  as  integers 
(e.g.,  a value  of  four  means  every  fourth 
sample  will  be  transferred  to  the  Master  File). 

- Number  of  item  codes  stored  in  the  ITEM  array. 

- Number  of  counters  stored  in  the  NCTR  array. 

- Requested  number  of  direct  access  records  for 
the  Master  File  partition  to  be  created,  re- 
placed, or  modified. 

- Number  of  input  data  tapes  to  be  read. 

- Mode  with  regard  to  Master  File  partition. 
IADNU=  1,  Add  to  existing  partition 
IADNU=  0,  New  partition 

IADNU=-1,  Replace  partition 

- Logical  variable 

LALIN  = TRUE.,  Use  time  skew  alignment 
LALIN  = FALSE.,  Do  not  use  time  skew  alignment 

- Array  containing  partition  name. 

- Array  containing  partition  password. 

- Array  containing  user  name. 

- Logical  variable 

MAPIT=  .TRUE.,  Generate  partition  listing  after 
completion  of  all  data  transfers. 
MAPIT=  .FALSE.,  Do  not  generate  a partition 
listing. 

- Logical  variable 

SAVIT=  .TRUE.,  Save  partition  on  digital  tape 
after  completion  of  all  data  trans- 
fers. 

S AV I T=  .FALSE.,  Do  not  save  partition  on  digi- 
tal tape. 

- Logical  variable. 

STRANG= . TRUE . , Input  data  are  not  in  standard 
BHT-GDC  format. 
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STRANG= . FALSE . , Input  data  tapes  are  in  stand 
ard  BHT-GDC  format. 


/LOCOM/  Information  for  data  transfer  process. 

ITEMN  - Current  item  code  to  be  transferred. 

ICNTRM  - Current  counter  to  be  transferred. 

IDROFF  - Offset  for  the  partition  directory  in  records. 

IDAS I 2 - Number  of  records  in  the  partition  data  area. 

IDRSIZ  - Number  of  records  in  the  directory. 

ITEMRC  - Record  number  for  portion  of  item  code  direc- 

tory which  contains  current  item  code. 

ITEMSQ  - Sequence  position  in  directory  record  for  cur- 
rent item  code. 


/MASS/  Identical  to  /MASS/  common  block  in  Appendix  B ex- 
cept that  arrays  are  dimensioned  to  five  instead  of 
ten. 


/SCRAT/  This  common  block  specifies  a general  scratch  area. 

Variable  arrays  are  different  in  name  and  size  for 
each  routine. 


/SIZES/  Single  word  common  block. 

MAXCI  - Maximum  number  of  counters  or  item  codes  which 
may  be  specified  for  any  one  run  of  the  File 
Creation  Program.  Corresponds  to  the  array 
size  for  the  arrays  in  the  /LIST/  common  block. 


List  of  keywords  to  decode  user  input  instructions. 

- Number  of  keywords  present  in  the  IAA  array. 

- Two-dimensional  array  of  keywords.  Second 
array  index  corresponds  to  the  keyword  number. 
The  four-character  keywords  are  stored  with  one 
left  justified  character  per  four-byte  word. 


/WLIST/ 

N 

IAA 
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/WLIST1/  Coded  start  and  stop  times  for  current  counter  and 
item  code. 

I START  - Coded  start  time  as  described  in  the  BHT-GDC 
Standard  Digital  Tape  Format. 

I STOP  - Currently  set  to  zero. 


APPENDIX  B 


PROCESSING  PROGRAM  COMMON  VARIABLES 


/ATTPAR/  Area  for  storage  of  processed  attached  parameter 

information.  The  time  base  for  the  data  stored  is 
normally  the  sequence  of  zero  degrees  azimuth  in- 
stants. When  appropriate  azimuth  data  are  not 
available,  this  time  base  is  synthesized  with  an 
interval  between  instants  of  two-tenths  of  a second. 

NVAL  - Total  number  of  time  instants  represented  in 
the  time  base,  TMAZMO . These  instants  may  be 
either  synthesized  or  real  azimuth  equal  zero 
degrees  time  instants  as  explained  above. 

NCNTR  - Counter  which  corresponds  to  the  current  data 
stored  in  ATTPAR. 

T1  - First  time  instant  in  time  base. 

T2  - Last  time  instant  in  time  base. 

LTMAZM  - Total  number  of  time  instants  in  the  time  base 
TMAZMO,  which  are  real  azimuth  values.  The 
real  azimuth  values  must  form  a contiguous  se- 
quence beginning  with  TMAZMO(l). 

LTASVA  - Total  number  of  true  airspeed  values  present 

in  the  TASVAL  array.  If  LTASVA  is  greater  than 
zero,  the  first  TASVAL  value  must  correspond  to 
the  first  TMAZMO  time. 

LRPMVA  - Total  number  of  rotor  speed  values  present  in 
the  RPMVAL  array.  If  LRPMVA  is  greater  than 
zero,  the  first  RPMVAL  value  must  correspond  to 
the  first  TMAZMO  time. 

LOATVA  - Total  number  of  outside  air  temperature  values 
present  in  the  OATVAL  array.  If  LOATVA  is 
greater  than  zero,  the  first  OATVAL  value  must 
correspond  to  the  first  TMAZMO  time. 

LSTATV  - Total  number  of  static  pressure  values  present 
in  the  STATVL  array.  If  LSTATV  is  greater  than 
zero,  the  first  STATVL  value  must  correspond  to 
the  first  TMAZMO  time. 


MM 


XSTRSC  - 

XINTSC  - 

NMAXSC  - 

TMAZMO  - 


TASVAL  - 
RPMVAL  - 
OATVAL  - 

STATVL  - 


Time  corresponding  to  the  first  data  value  on 
the  scratch  file  (SCF1  or  SCF2 ) used  for  input. 

Time  interval  between  data  values  on  the  scratch 
file  (SCF1  or  SCF2 ) used  for  input. 

Number  of  data  values  present  for  the  first 
time  history  on  the  scratch  file  (SCF1  or 
SCF2 ) used  for  input. 

Array  of  time  instants  forming  a time  base  for 
the  values  in  the  arrays  TASVAL,  RPMVAL,  OATVAL 
and  STATVL.  These  time  instants  may  or  may  not 
correspond  to  instant  of  zero  degrees  azimuth 
as  explained  in  the  heading  for  common  block 
/ATTPAR/. 

Array  of  true  airspeed  values  in  knots. 

Array  of  rotor  speed  values  in  RPM. 

Array  of  outside  air  temperature  values  in 
degrees  centigrade. 

Array  of  static  pressure  values  in  psia. 


/BSPARE/  Area  for  data  storage  in  processing. 

XSPARE  - Array  for  storage  of  data  or  scales  during 
processing.  This  array  must  always  be  at 
least  one-half  the  size  of  XBUFF. 


/BUFFER/  Area  for  data  storage  in  processing. 

XBUFF  - Array  for  storage  of  data  or  scales  during 

processing.  The  number  of  words  in  this  array 
must  correspond  to  IBFSIZ  in  the  block  SIZES. 


/CNGBLK/  Communication  and  work  area  for  command  sequence 
editing  function. 

NLINES  - Number  of  lines  in  the  command  sequence  block 
to  be  edited. 

NAMSEQ  - Name  of  the  command  sequence  block  to  be 
edited.  Held  in  'A4'  format. 
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LOCAT,  IDEL1,  IDEL2  - Work  arrays  corresponding  to  line 
numbers  for  command  sequence  editing. 

IWORK  - Work  array  used  for  display  of  user  input  line 
error  diagnostics. 

LINE  - Array  corresponding  to  command  sequence  block 
before,  after,  and  during  editing.  The  second 
index  corresponds  to  line  number.  Each  line 
is  stored  in  16A4  format. 

LINECH  - Array  to  hold  line  changes  during  editing  prior 
to  a renumbering  operation  ($N). 

MERGEL  - Array  to  hold  renumbered  command  sequence  block 
during  the  renumber  operation  ($N). 


/CNTLIP/  Directive  and  information  values  for  data  input  and 
processing 

IPRCOD  - Processing  code  assigned  in  an  ANALYZE,  DERIVE 
or  DISPLAY  command  step.  Set  in  PROSET  and 
interpreted  in  PR01  or  PR02 . 

IPRTYP  - Certain  types  of  processes  are  grouped  together 
for  the  process  flow.  IPRTYP  = 4 indicates  a 
process  using  data  from  multiple  row  positions 
for  each  column  position  (e.g.,  a CR  integra- 
tion) which  would  be  accomplished  in  PR02. 
IPRTYP  = 5 indicates  a process  using  data  from 
multiple  column  positions  simultaneously  (i.e., 
blade  slope)  which  is  accomplished  in  SLOPST. 
Any  other  value  for  IPRTYP  indicates  a process 
accomplished  in  PR01. 

NFREE  - Source  of  input  data.  Allowed  values: 

1 = SCF1 

2 = SCF2 

3 = Info  file  group  specifies  item  code(s) 

4 = User  specified  item  code 

5 = Info  file  specifies  item  code  required 

for  derivation  by  keyword 

6 = Attached  parameter  data  is  sufficient 

for  derivation 

NCOLSI  - Number  of  columns  (3rd  dimension)  to  be  input 
for  processing. 
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NROWSI  - Number  of  rows  (2nd  dimension)  to  be  input  for 
processing. 

TIMEl  - Time  specified  by  user  as  either  the  beginning 
of  the  input  time  history  to  be  used  or  a time 
instant  included  in  the  rotor  cycle  just  before 
the  beginning  of  data  which  will  occur  at  azi- 
muth equals  zero  degrees. 

DURATN  - Length  of  the  input  time  history  in  seconds 
when  ICYCLS  is  less  than  zero. 


ICYCLS 


AZIM 

MISINP 


NCOLI 

NROWI 

IDATPR 


Length  of  the  input  time  history  is  rotor 
cycles.  ICYCLS  = 0 specifies  that  a single 
instant  corresponding  to  a user  specified  azi- 
muth value  will  be  input.  ICYCLS  less  than 
zero  specifies  that  the  length  of  the  time  his- 
tory is  given  by  DURATN. 

Specifies  a single  rotor  azimuth  position  for 
input  when  ICYCLS  = 0. 

Specified  which  double-row  elements  are  present 
input.  The  values: 

0 = Both  double-row  elements 

1 = Top  double-row  element  only 

2 = Bottom  double-row  element  only 

When  NCOLSI  = 1,  this  variable  specifies  which 
column  element  is  input. 

When  NROWSI  = 1,  this  variable  specifies  which 
row  element  is  input. 

A two-element  array  which  specifies  how  many 
data  points  are  present  in  the  current  input 
data  record.  IDATPR(l)  corresponds  to  the  top 
double-row  element  and  IDATPR(2)  corresponds 
to  the  bottom  double-row  element. 


/CNTLOP/  Directive  and  information  values  for  data 
processing  and  output. 

MODOUT  - Output  mode.  Allowed  values  are: 

1 - Plot  single  curve 

2 - Plot  multiple  curves 
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ISFOUT  - 


M120UT  - 


OUTMAX  - 


OUTMIN  - 


LSCALE  - 


LSCALY  - 


3 - Add  a curve  to  an  existing  plot  frame 

4 - Print  data 

5 - Contour  plot 

6 - Surface  plot 

7 - Keep  results  on  a scratch  file  while 

destroying  any  data  already  present  on 
the  file 

8 - Add  results  to  a scratch  file  along  with 

any  data  already  present  on  the  file. 

Scratch  file  to  be  used  for  output  when 
MODOUT  = 7 or  MODOUT  = 8.  Allowed  values  are: 

1 = SCFl 

2 = SCF2 

Specifies  which  double-row  elements  are  present 
on  output.  The  values  are: 

0 = Both  double-row  elements 

1 = Top  double-row  element  only 

2 = Bottom  double-row  element  only 

Maximum  output  value  from  any  output  time 
history  created  during  the  current  command 
step. 

Minimum  output  value  from  any  output  time 
history  created  during  the  current  command 
step. 

Specifies  parameter  for  first  independent 
variable  for  plot  output.  Allowed  values  are: 

1 = Time,  Frequency  or  Harmonic  Number 

2 = Azimuth 

3 = True  airspeed 

4 = Rotor  speed 

Specifies  parameter  for  second  independent 
variable  for  plot  output.  Important  only  for 
3-dimensional  plot  representations  (i.e., 
SURFACE  or  CONTOUR).  Allowed  values  are: 

1 = Row  or  column 

2 = Azimuth 

3 = True  airspeed 

4 = Rotor  speed 
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/CURRNT/  Block  to  contain  information  on  status  of  user 
interface  overlay  process. 

ISBSTP  - Current  substep  being  processed. 

IENTRY  - Current  entry  in  substep  being  processed. 

Set  to  -1  when  substep  complete,  -2  when 
command  step  complete. 

ITREE  - Current  tree  position  in  command  input  process. 

LINHLD  - Line  held  in  ICHAR  is  first  line  of  a new 

command  step  when  LINHLD  = 1.  This  variable 
is  relevant  only  when  MODSCN  = 1 (input 
scanning  only). 

IEOF  - Normally  set  to  zero.  Set  to  one  if  end  of 

file  condition  was  found  on  last  system  input. 

IUENT  - Sequence  number  of  entry  to  be  processed  on 
current  line  of  user  input. 

NUENTS  - Number  of  entries  available  on  current  line 
of  user  input. 

IDEFLT  - When  set  to  one,  default  values  are  specified 
for  the  remainder  of  the  current  substep  and 
slash  terminating  the  substep  is  present.  When 
set  to  zero,  the  above  conditions  do  not  per- 
tain. 

I OPT  - Entry  option  selected  for  a particular  tree 

position. 

NEXT  - Number  of  next  substep  to  be  entered. 


/DATSET/  Control  values  and  buffer  arrays  for  retrieval  of 
data  from  the  Master  File. 

ICTRDN  - Sequential  record  number  for  the  portion  of 
the  counter  directory  currently  present  in 
ICTRD.  If  ICTRDN  = 0,  then  no  portion  of  the 
counter  directory  is  present  in  ICTRD.  The 
sequential  record  number  need  not  correspond 
to  the  relative  record  number  in  the  directory. 


< 
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ITMDN  - 

ITMDNl  - 

INFOLC  - 

ICTRD  - 

ITEMD  - 

ITMINF  - 

ITMDAT  - 

ICTRC  - 

ITEMC  - 

ITMDA  - 

ITMPNT  - 

CB,  CM  - 

I RAT 


Sequential  record  number  for  the  portion  of 
the  item  code  directory  currently  present  in 
ITEMD.  The  sequential  record  number  need  not 
correspond  to  the  relative  record  number  in  the 
directory. 

Relative  record  number  for  the  portion  of  the 
item  code  directory  currently  present  in 
ITEMD. 

Relative  record  number  for  the  information 
record  for  the  current  item  code  and  counter. 

Array  containing  all  or  a portion  of  the 
counter  directory. 

Array  containing  all  or  a portion  of  the  item 
code  directory. 

Array  containing  the  information  record  for 
the  current  item  code/counter  pair. 

Array  containing  a data  record -for  the  current 
item  code/counter  pair.  The  particular  data 
record  is  indicated  by  ITMDA. 

Current  counter  corresponding  to  the  item  code 
directory  present  in  ITEMD. 

Current  item  code  corresponding  to  the  infor- 
mation record  in  ITMINF  and  the  information 
record  location  given  by  INFOLC. 

Record  number  for  the  data  record  contained  in 
ITMDAT  as  offset  from  INFOLC.  This  ITMDA+ 
INFOLC  gives  the  relative  record  number  for 
the  record  in  ITMDAT. 

Sequential  data  point  in  the  current  data 
stream  which  corresponds  to  the  appropriate 
next  data  point  if  DATAIN  is  called  with  the 
continuation  mode  (FSEC  less  than  zero). 

Calibration  factors  for  integer  to  floating 
point  conversion  during  retrieval. 

Calculated  sample  rate  for  the  current  item 
code/counter  pair  data  stream. 
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LAST 


Total  number  of  samples  in  the  current  item 
code/counter  pair  data  stream. 


ICAL  - Equals  one  if  the  current  item  code/counter 

pair  data  stream  is  stored  as  calibrated  data 
and  zero  if  the  data  stream  is  stored  as 
uncalibrated  integers. 


/DEFLT/  Default  user  input  matrix  and  general  system  label. 

DEFCOM  - General  system  label.  The  current  date  is 

added  to  this  label  in  STRTUP.  The  label  is 
stored  13A4  with  additional  space  available. 

IDVAL  - Two-dimensional  array  showing  the  appropriate 

defaults  for  user  entries.  IDVAL(1,N)  controls 
the  nature  of  the  default.  L = IDVAL(2,N) 
gives  the  actual  default  value.  The  possible 
values  for  IDVAL (1,N)  are: 

1 = no  default  allowed 

2 = standard  keyword  default,  L 

3 = standard  numeric  default,  IPVAL(L) 

4 = keyword  default  unless  there  is  a 

previously  entered  value  which  then 
becomes  the  default 

5 = numeric  default  unless  there  is  a 

previously  entered  value  which  then 
becomes  the  default 

6 = no  standard  default  but  previous 

entry,  if  any,  becomes  the  default 

IPVAL  - Array  containing  numeric  default  entries 
pointed  to  by  IDVAL. 


/DIRECD/  Provides  user  command  directives  and  comment. 

IDIRCD  - Two-dimensional  instruction  matrix  of  user 

interface  entries  which  is  provisional  until 
the  command  step  is  complete.  When  the  step 
is  complete,  this  array  is  copied  to  IDIRCT. 
IDIRCD  is  commonly  equivalanced  to  DIRCD. 

KMMNTD  - Provisional  comment  which  is  copied  to  KOMMNT 
when  the  step  is  complete. 
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NKMMCH  - Number  of  characters  in  the  provisional 
comment , KMMNTD . 


/DIRECT/  User  interface  communication  block 

IDIRCT  - Two-dimensional  instruction  matrix  containing 
user  interface  control  values . Each  instruc- 
tion, as  indicated  in  Table  3,  will  have  one  or 
more  options  and  may  include  a communicated 
string  or  numeric  value.  For  instruction  N, 
IDIRCT(1,N)  contains  the  option  selection  coded 
as  an  integer  value  (which  may  be  negative), 
and  IDIRCT(2,N)  contains  any  string  or  numeric 
value  communicated.  Numeric  values  communi- 
cated in  IDIRCT(2,N)  are  always  in  floating 
format  and  are  accessed  using  an  equivalent 
REAL  array  which  is  usually  called  DIRECD. 

/DRW/  Block  of  plotting  information 


XMIN 

DX 


XH 

XL 

YMIN 

DY 


YH 


Minimum  allowed  X value  on  plot  in  user  coor- 
dinates . 

Increment  in  user  coordinates  of  X axis  corres- 
ponding to  one  annotated  interval  on  an  X-Y 
plot.  On  a three-dimensional  plot  (SURFACE  or 
CONTOUR),  DX  corresponds  to  1 inch  in  the  hori- 
zontal direction. 

Maximum  absolute  horizontal  position  in  paper 
or  screen  coordinates.  Currently  set  to  7.5 

Minimum  absolute  horizontal  position  in  paper 
or  screen  coordinates.  Currently  set  to  0.0 

Minimum  allowed  Y value  on  plot  in  user 
coordinates. 

Increment  in  user  coordinates  of  Y axis  corres- 
ponding to  one  annotated  interval  on  an  X-Y 
plot.  On  a three-dimensional  plot  (SURFACE  or 
CONTOUR),  DY  corresponds  to  1 inch  in  the  ver- 
tical direction. 

Maximum  absolute  vertical  position  in  paper  or 
screen  coordinates.  Currently  set  to  10.0 
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YL 

JUNQ 

INSL 

XOFF 

YOFF 

NX 

NY 

I GRID  - 

LOGX 

LOGY 

ZSCALE  - 

NOT ICS  - 


Minimum  absolute  vertical  position  in  paper  or 
screen  coordinates.  Currently  set  to  0.0 

Array  which  specifies  a schedule  for  generation 
of  dashed  lines.  Allowed  values  for  JUNQ  are 
0 thru  9.  When  a dashed  line  is  generated,  a 
sequence  of  dashes  having  a length  of  one  tenth 
inch  times  each  integer  in  sequence  is  gener- 
ated. A gap  of  one-tenth  of  an  inch  is  in- 
serted between  each  dash. 

A logical  variable.  True  if  point  last  plotted 
was  inside  allowed  plotting  area;  false  other- 
wise. 

Cumulative  X offsets  from  device  origin  which 
have  been  applied  in  a frame. 

Cumulative  Y offsets  from  device  origin  which 
have  been  applied  in  a frame. 

Number  of  DX  intervals  in  the  allowed  plotting 
area. 

Number  of  DY  intervals  in  the  allowed  plotting 
area. 

If  I GRID  = 1,  a grid  will  be  drawn  for  X-Y 
plots.  If  IGRID  = 0,  the  grid  will  not  be 
drawn. 

If  LOGX  = 0,  the  X scale  is  linear.  If  LOGX 
is  greater  than  zero,  the  X scale  is  logarith- 
mic with  LOGX  cycles. 

If  LOGY  = 0,  the  Y scale  is  linear.  If  LOGY 
is  greater  than  zero,  the  Y scale  is  logarith- 
mic with  LOGY  cycles. 

Scaling  factor  applied  to  the  plot.  DX/ZSCALE 
corresponds  in  user  coordinates  to  one  inch 
in  the  X direction,  DY/ZSCALE  to  one  inch  in 
the  Y direction.  For  X-Y  plots,  ZSCALE  = .7. 
For  3-D  plots,  ZSCALE  = 1.0 

If  NOTICS  = 1,  no  tic  marks  will  be  drawn  for 
the  X and  Y scales.  If  NOTICS  = 0,  tic  marks 
will  be  drawn. 
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/ENTOPT/  Entry  options  and  tree  structure  for  user  command 
steps 

IENTOP  - Array  containing  sequences  of  entry  options 

coded  by  keyword  number.  If  a sequence  begins 
at  location  'I'  then: 

IENTOP(I)  = Entry  number  according  to  allowed 
entry  list. 

IENTOP ( 1+1 ) = K = Number  of  entry  options. 
IENTOP ( 1+2 ) thru  IENTOP( I+l+K)  = Entry  options 
coded  by  keyword.  If  IENTOP( I+l+K) 
= 1000,  the  option  is  a four  char- 
acter string.  If  IENTOP ( I+l+K)  = 

-L  is  less  than  zero  then  the  op- 
tion is  a number  with  allowed  range 
between  RANGOP(L)  and  RANGOP(L+l). 

NPOINT  - Array  containing  the  tree  structure  for  user 
input  entries.  Significance  of  values  is: 

NPOINT (1,N)  = position  in  LWORDS  giving  HELP 
string  for  this  entry. 

NPOINT ( 2, N)  = IENTOP  position  giving  allowed 
option  for  this  entry. 

NPOINT ( 3, N)  = L,  points  to  subsequent  entry 
positions.  If  L greater  than  zero, 

L gives  next  N subsequent  entry.  If 
L = 0,  command  is  complete.  If  L 
less  than  zero,  -L  points  to  sequence 
in  LISTP  with  each  LISTP  value  cor- 
responding to  an  IENTOP  option  and 
giving  a new  NPOINT  position  for  the 
subsequent  entry. 

LISTP  - Array  of  pointers  as  explained  under  NPOINT. 

RANGOP  - Ranges  for  numerical  entries  as  explained  under 
IENTOP 


/FILES/  Input  and  output  file  numbers. 

NRPS  - Master  file,  file  number  is  normally  set  to 
one. 

NREA  - System  input  file,  file  number  is  normally 
five. 
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NWRI 

NSCl 

NSC2 

NAL1 

NAL  2 

NCSG 

NALG 

NED  I 

NINF 

NPRI 

/FILLRC/ 

H(Z) 


System  output  file,  file  number  is  normally 
six. 

Direct  access  file  corresponding  to  SCFl  when 
the  scratch  files  are  not  concentrated  on  one 
file.  File  number  is  normally  seven. 

Direct  access  file  corresponding  to  SCF2  when 
the  scratch  files  are  not  concentrated  on 
one  file.  File  number  is  normally  eight. 

Sequential  alias  for  NSCl.  File  number  is 
normally  nine. 

Sequential  alias  for  NSC2 . File  number  is 
normally  ten. 

Direct  access  file  corresponding  to  temporary 
scratch  file.  Alternatively,  SCFl,  SCF2  and 
the  temporary  scratch  could  be  concentrated 
on  this  file.  File  number  is  normally  eleven. 

Sequential  alias  for  NSCG.  File  number  is 
normally  twelve. 

Direct  access  file  for  storage  of  command 
sequence  blocks.  File  number  is  normally 
thirteen. 

Info  file.  File  number  is  normally  fourteen. 

File  reserved  for  printout.  Currently  an 
alias  for  NWRI. 


Contains  the  parameters  which  describe  the  digital 
filter  transfer  function  in  Z-transform  space.  In 
particular,  the  transfer  function  H(Z)  is  given  by 
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where  the  common  block  variables  AO,  Bl,  AIO,  All, 
BIl,  and  BI2  are  given  by  the  equation.  The  vari- 
able NRE  is  related  to  the  number  of  real  poles  and 
is  given  by  N in  the  equation.  Similarly,  NCPLX  is 
related  to  half  the  number  of  complex  poles  and  is 
given  by  M in  the  equation.  NENDPT  is  used  for 
double  filtering  operations  and  gives  the  number  of 
values  that  may  be  discarded  at  the  end  of  the  time 
interval . 


/GENSCR/  Information  and  pointers  for  temporary  scratch  file. 


NEXCLG  - 


NEXRWG  - 


IGRWLC  - 


IGRWLN  - 


IGCLLC  - 


IGCLLN  - 


Next  available  record  number  for  storage  of 
data  identified  by  column  where  a single  row  is 
present. 

Next  available  record  number  for  storage  of 
data  identified  by  row  number  where  multiple 
rows  are  present. 

Two-dimensional  array  giving  the  starting  re- 
cord number  in  the  temporary  scratch  file  for 
data  from  a row  element  corresponding  to  the 
second  subscript  value.  The  first  subscript 
corresponds  to  the  top  and  bottom  double-row 
elements  for  subscript  values  of  one  and  two, 
respectively. 

Two-dimensional  array  giving  the  length  in  data 
samples  for  the  stored  time  history  from  a row 
element  corresponding  to  the  second  subscript. 
The  first  subscript  corresponds  to  the  top  and 
bottom  double-row  elements  for  subscript  values 
of  one  and  two  respectively. 

Two-dimensional  array  giving  the  starting  re- 
cord number  for  data  from  a column  element  cor- 
responding to  the  second  subscript.  The  first 
subscript  corresponds  to  the  top  and  bottom 
double-row  elements  for  subscript  values  of  one 
and  two,  respectively. 

Two-dimensional  array  giving  the  length  in  data 
samples  for  the  stored  time  history  from  a col- 
umn element  corresponding  to  the  second  sub- 
script. The  first  subscript  corresponds  to  the 
top  and  bottom  double-row  elements  for  sub- 
script values  of  one  and  two,  respectively. 
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Three-dimensional  array  giving  labels  for  anno- 
tation of  lines  on  multiple  line  plots.  The 
first  subscript  is  dimensioned  to  three  and 
corresponds  to  three  words  on  twelve  allowed 
characters  for  the  label  (3A4).  The  second 
subscript  corresponds  to  the  top  and  bottom 
double-row  element  for  values  of  one  and  two, 
respectively.  The  third  subscript  corresponds 
to  row  or  column  position.  If  multiple  columns 
are  present,  this  subscript  corresponds  to 
column  position.  Otherwise,  the  subscript 
corresponds  to  row  position. 


/HLPWDS/  Strings  and  control  value  for  generation  of  HELP 
prompting  for  the  user. 

L WORDS  - Array  of  strings  used  in  generation  of  HELP 

messages.  There  is  one  string  for  each  avail- 
able entry  option.  The  word  immediately 
preceding  each  string  is  an  integer  giving  the 
length  of  the  string  in  characters.  The 
strings  are  stored  in  nA4  format. 

I HELP  - If  I HELP  = 1,  then  HELP  is  active.  If  I HELP  = 
0,  then  HELP  is  not  active. 

/INFGRP/  Block  for  storage  of  information  provided  by  an 
Info  file  group. 

MXGLGP  - Number  of  column  elements  for  the  group. 

MXRWGP  - Number  of  row  elements  for  the  group. 

KEYWDT  - Four-character  keyword  corresponding  to  the 
top  double-row  element  for  the  group. 

KEYWDB  - Four-character  keyword  corresponding  to  the 
bottom  double-row  element  for  the  group. 

NKEYS  - Set  to  one  if  top  double-row  element  present, 

set  to  two  if  both  double-row  elements  present. 

NKPOUT  - NKPOUT  = 0 if  both  double-row  elements  wanted. 

NKPOUT  = 1 if  top  double-row  element  wanted  or 
NKPOUT  = 2 if  bottom  double-row  element  wanted. 

ROWPGP  - Array  of  geometric  row  positions. 
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COLPGP 

MXITBM 


POSMX 


Array  of  geometric  column  positions. 

Three-dimensional  array  giving  four-character 
item  codes  for  row,  column,  double-row  element 
intersections.  The  first  index  gives  the 
double-row  element  where  top  and  bottom  corres- 
pond to  index  values  of  one  and  two  respec- 
tively. The  second  index  gives  the  column 
element  number  and  the  third  index  gives  the 
row  element  number. 

Three-dimensional  array  giving  a third  geomet- 
ric position  parameter  (e.g.,  vertical  chord 
position)  for  the  physical  location  of  sensors 
corresponding  to  each  item  code.  The  first 
index  gives  the  double-row  element,  the  second 
index  gives  the  column  element,  and  the  third 
index  gives  the  row  element. 


/KARD/  Block  for  communicating  user  input  lines  for  scan  and 
return  of  information  about  the  lines. 


ILOC 


INUM 


XNUM 

I CHAR 


An  array  corresponding  to  the  user  entries  in 
the  line  ICHAR.  ILOC(I)  corresponds  to  the 
I'th  entry.  If  ILOC(I)  is  positive,  then  the 
I'th  entry  is  a string  beginning  at  character 
position  ILOC(I).  If  ILOC(I)  is  zero,  then  the 
I'th  entry  is  a null.  If  ILOC(I)  is  negative, 
then  the  I'th  entry  is  numeric  and  -ILOC(I)  is 
the  index  in  the  XNUM  array  for  the  numeric 
value. 

An  array  corresponding  to  the  user  entries  in 
the  line  ICHAR.  INUM(I)  corresponds  to  the 
I'th  entry.  If  the  I'th  entry  is  a string, 
then  INUM(I)  gives  the  number  of  characters 
in  the  entry. 

An  array  giving  numeric  values  extracted  from 
ICHAR  as  explained  under  ILOC. 

An  array  of  characters  forming  one  line  of 
user  input.  The  characters  are  stored  in  the 
format  72A1 . 


/KWCNTL/  Gives  prescribed  keywords  to  check  that  data  on 
scratch  file  to  be  used  on  input  are  appropriate 
for  certain  derivations. 
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KWMI1 

Prescribed  keyword  for  the  top  double-row  ele- 
ment input  for  a process. 

KWMI2 

- 

Prescribed  keyword  for  the  bottom  double-row 
element  input  for  a process. 

NKWM 

— 

Number  of  prescribed  double-row  elements  re- 
quired for  process. 

/LABELS/  Plot  labels.  Most  of  these  labels  are  extracted 
from  the  information  record  preceding  each  data 
stream  in  the  Master  File. 

I DATE 

- 

Date  the  data  stream  was  recorded.  The  format 
is  2A4 . 

ITIME 

- 

Time  of  day  the  data  stream  was  recorded.  The 
format  is  2A4. 

ICLABL 

- 

Current  counter  in  string  format  A4,A2. 

ITEML 

- 

Item  code  in  format  A4. 

I MODEL 

- 

Ship  model  in  format  A4,A2. 

ISHIPN 

- 

Ship  number  in  format  A4,A2. 

ISHPGW 

- 

Ship  gross  weight  in  format  A4,A2. 

IMODLC 

- 

Ship  model  code  in  format  2A4. 

ICGLNG 

- 

Ship  longitudinal  CG  in  format  A4,A2. 

ICGCOD 

- 

Ship  CG  code  in  format  A2 . 

IFLTNM 

- 

Flight  number  in  format  A4,A2. 

IUNITS 

- 

Dependent  variable  units  in  format  2A4. 

ITEMDS 

- 

Discription  of  dependent  variable  in  format 

7A4 , A2 . 

LINLAB 

- 

Dependent  variable  label  for  multiple  line 
plots. 

/LEDIT/  Control  and  information  values  for  command  sequence 
storage  on  retrieval . 

LED  - Current  command  sequence  (EDIT)  mode. 

0 = normal  mode 

1 = EDIT/NEW  mode 

2 = BUILD  mode 

3 = EXECUTE  mode 

NAMFIL  - Four-character  name  of  the  current  command 
sequence  block  being  edited,  built,  or  exe- 
cuted . 

NUMFIL  - Pointer  to  the  current  block  in  the  command 
sequence  file  being  generated  or  read. 

LOCFIL  - Pointer  to  the  current  line  in  the  command 
sequence  file  being  generated  or  read. 

LEDLIM  - Total  number  of  command  lines  available  on 
the  command  sequence  file.  If  LEDLIN  = -1 
the  EDIT  capability  is  not  available. 

LEDLRC  - Number  of  direct  access  records  in  a command 
sequence  block. 

LNPREC  - Number  of  command  lines  which  can  be  stored 
in  a command  sequence  block. 

LWDPLN  - Number  of  words  allotted  to  each  command  line 
where  four  characters  are  stored  in  each  word. 

/MASS/  Offsets,  pointers  and  check  values  for  the  direct 
access  routines  RMS,  WMS,  FMS . 

NDEVS  - Dimension  for  the  arrays  in  this  block. 

MDEV  - Array  giving  direct  access  I/O  file  numbers. 

MDEV(I)  is  the  I/O  file  number  for  pseudo- 
device I . 

MOFF  - Array  giving  offsets  to  arrive  at  correct 
direct  access  record  numbers.  For  pseudo- 
device I,  MOFF ( I ) should  be  added  to  the  re- 
quested record  number  to  arrive  at  the  proper 
record  number  for  direct  access  device  MDEV(I). 
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MLEN 


MTOT 


MSIZ 


Array  giving  lengths  of  the  pseudo-devices. 

MLEN ( I ) is  the  number  of  direct  access  records 
available  to  pseudo-device  I . 

Array  giving  total  length  of  direct  access 
devices.  MTOT(I)  is  the  total  number  of  direct 
access  records  available  on  direct  access  file 
MDEV ( I ) . 

Array  giving  record  size  in  four-byte  words 
for  each  pseudo-device.  MSIZ(I)  is  the  record 
size  for  pseudo-device  I . 


/MDEP/  Computer,  installation,  or  hardware  dependent  values 


I BAUD  - 


IPLDEV 


PENBGX  - 


PENBGY  - 


PLTWID 


NPBLKS  - 


Data  communication  rate  in  characters  per 
second  between  the  Tektronix  graphics  terminal 
and  the  computer. 

Plotting  device 

1 = Calcomp  or  incremental  plotter 

calcomp  emulation  (e.g.,  DP-1) 

2 = Other  device 

3 = Tektronix 

Deviation  in  X of  the  initial  positioning  of 
the  incremental  plotter  pen  from  the  standard 
starting  position  which  is  1/2-inch  to  the 
right  of  the  perforations  for  DP-1  paper. 

Deviation  in  Y of  the  initial  positioning  of 
the  incremental  plotter  pen  from  the  standard 
starting  position  which  is  the  1/2-inch  above 
the  perforations  at  the  bottom  of  the  page. 

Total  width  in  inches  of  a page  of  plot  for 
determining  spacing  of  frames.  This  value 
does  not  affect  the  size  of  the  plot  frames 
as  drawn. 

Number  of  blocks  allowed  in  a page  of  printout 
where  each  block  contains  five  data  lines  and 
one  blank  line. 


TWARN  - Number  of  CPU  seconds  which  will  be  consumed 
before  the  computer  begins  to  issue  time 
warnings  to  the  user. 
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ITSTEP  - Control  value  for  printout  of  command  step  exe- 
cution times.  If  ITSTEP  = 1,  the  times  will  be 
printed.  If  ITSTEP  = 2,  the  times  will  not  be 
printed. 

I DONE  - Array  indicating  whether  the  various  scratch 
files  are  already  initialized.  If  IDONE(I)  = 

1,  then  file  I is  initialized  before  the  pro- 
gram run  began.  Otherwise,  the  file  must  be 
initialized  at  the  start  of  the  run.  Following 
are  the  files  corresponding  to  the  index  values. 

1 = SCF1 

2 = SCF2 

3 = Temporary  scratch. 


/MENBUF/  Buffer  block  for  menu  generation 


IX 

Array  for  generation  of  menu's 

/MLABLS/  Block  for  output  labels. 

RDLBL  - 

Row  axis  label  of  up  to  16  characters  stored 
4A4 . 

RULBL  - 

Abbreviated  row  axis  label  of  up  to  eight 
characters  stored  2A4. 

RTLBL  - 

Label  for  a geographic  feature  near  the  lowest 
valued  row  position.  The  label  may  contain  up 
to  16  characters  stored  4A4. 

CDLBL  - 

Column  axis  label  of  up  to  16  characters 
stored  4A4. 

CULBL  - 

Abbreviated  column  axis  label  of  up  to  eight 
characters  stored  2A4. 

CTLBL  - 

Label  for  a geographic  feature  near  the  lowest 
valued  column  position.  The  label  may  contain 
up  to  16  characters  stored  4A4. 

LABGEN  - 

General  label  for  independent  variable(s). 

This  label  is  entered  when  a derivation  is 
performed  or  multiple  items  are  used  from  an 
Info  file.  Stored  as  7A4,A2  format. 
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IPCTL  - Control  for  counter  label  ICLABL. 


IPCLBL 


LBCEX1 


LABEXl 


1 = Single  counter  in  output 

2 = Multiple  counters  in  output 

Counter  label.  Contains  counter  in  string  form 
for  single  counter  output  or  the  string  'MULTI- 
PLE' for  multiple  counter  output. 

Control  for  row,  column,  or  time  label.  The 
allowed  values  are: 

1 = Column  position  label  in  Info  file 

supplied  coordinates 

2 = Column  position  label  as  provided 

by  the  user 

3 = Row  position  label  in  Info  file 

supplied  coordinates 

4 = Time  associated  label 

5 = No  label 

Label  as  controlled  by  LBCEX1.  LABEXl (1)  con- 
tains the  numeric  value  while  LABEXl (2)  and 
LABEXl (3)  contain  a string  label.  XLBCEX  is 
normally  equivalenced  to  LABEXl. 


/MODES/  Operating  modes  for  the  program. 


MODES  - Batch/interactive  mode  selection. 


1 = Batch 

2 = Interactive 

3 = Interactive  graphics 

MODSCN  - Scan  mode  for  user  input. 

0 = Normal 

1 = Scan  for  line  errors  only 

2 = Same  as  '1'  but  next  input  line 

is  already  present  in  ICHAR 

MODINP  - Command  input  source. 

0 = System  input 

1 = Edit  file 


MODSCR 


Scratch  file  mode.  If  MODSCR  = 1,  all  scratch 
files  are  concentrated  on  the  device  with  the 
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number  given  by  NSCG.  If  MODSCR  = 0,  each 
scratch  file  is  located  with  a different  file 
number  given  by  NSC1,  NSC2  and  NSCG. 


MODROT  - Rotor  selection  mode.  If  MODROT  = 1,  the  main 
rotor  is  selected.  If  MODROT  = 2,  the  tail 
rotor  is  selected. 


/PLABLS/  Stored  labels  and  information  for  output. 

HLABLS  - An  array  containing  eight  labels  to  be  added 
to  the  beginning  of  the  dependent  variable 
description.  Each  label  has  the  format  5A4. 

XLABLS  - An  array  containing  seven  possible  X-axis 

labels.  Each  label  is  stored  in  the  format 
6A4 . 

LINSKP  - Array  of  integers  which  provide  the  schedules 
for  dashed  lines  which  are  later  stored  in 
JUNQ ( /DRW/ ) . From  a LINSKP  entry,  each  decimal 
digit  is  transferred  to  one  JUNQ  value.  Al- 
lowed values  for  each  LINSKP  entry  are  0 thru 
9999. 

ULABLS  - First  independent  variable  unit  labels. 


/PRCOM/  Common  for  process  communication. 

KOUNTR  - Current  counter  stored  as  an  integer 
KITEM  - Current  item  code  stored  in  A4  format. 


NPTS  - Number  of  points  in  output  record. 
XSTRTV  - Starting  independent  variable  value. 
XINTVL  - Independent  variable  sampling  interval. 
NMAXVL  - Number  of  samples  in  processing  record. 
INDEPN  - First  independent  variable  indicator 


1 = time 

2 = frequency 

3 = harmonic  number 


LTYPE 


Pointer  to  proper  HLABLS  label 

LXAX  - Pointer  to  proper  XLABLS  label 

KEYWD1  - Top  double-row  element  keyword  for  output  data 
stream. 

KEYWD2  - Bottom  double-row  element  keyword  for  output 
data  stream. 

KEYQl  - Top  double-row  element  keyword  for  input  data 
stream. 

KEYQ2  - Bottom  double-row  element  keyword  for  input 
data  stream. 

POSZ  - Two  word  array  giving  the  third  or  minor  posi- 
tion value  for  the  current  item  code(s)  in 
process.  The  first  array  value  corresponds  to 
the  top  double-row  element  and  the  second  array 
value  corresponds  to  the  bottom  double-row 
element. 


/SCRTCH/ 

IOFFXB  - Offset  in  words  to  the  beginning  of  scratch 
file  output  information  stored  in  XBUFF 
(/BUFFER/) 

IRPOFF  - Offset  in  words  from  XBUFF(l)  to  the  beginning 
of  row  position  storage  for  output  to  a scratch 
file. 

ICPOFF  - Offset  in  words  from  XBUFF(l)  to  the  beginning 
of  column  position  storage  for  output  to  a 
scratch  file. 

KDROFF  - Offset  in  words  from  XBUFF(l)  to  the  beginning 
of  the  data  directory  buffer  to  scratch  file 
ouput . 

NPREC  - Number  of  data  directory  blocks  in  a scratch 
file  record. 

ICOLM  - Array  giving  the  current  column  number  being 
worked  on  for  each  scratch  file. 


INILOC 


MXRWSC  - 

MXCLSC  - 

MSCLOC  - 

IPANAV  - 

ICURR  - 

IXBINP  - 

ICURIP  - 

IXDIRI  - 

IXDAT1  - 

IRPOFX  - 

ICPOFX  - 

MODE 12  - 

ROWPOS  - 


First  available  data  record  for  either  scratch 
file. 

Maximum  number  of  row  positions  allowed  for  a 
scratch  file. 

Maximum  number  of  column  positions  allowed  for 
a scratch  file. 

Array  giving  the  next  available  data  storage 
record  for  each  scratch  file. 

Array  which  gives  the  multiple  storage  condi- 
tion for  each  scratch  file  where  index  = 1 is 
SCFl  and  index  = 2 is  SCF2 . If  IPANAV(I)  = 0 
then  all  the  data  stored  on  the  scratch  file 
was  written  in  one  KEEP  command  step.  If 
IPANAV  (I)  = 1 then  the  data  stored  on  the 

scratch  file  was  written  with  one  KEEP  and  one 
or  more  ADD  command  steps. 

Data  directory  record  currently  in  XBUFF  for 
the  scratch  file  currently  being  written  on. 

Offset  in  words  to  the  beginning  of  scratch 
file  input  information  stored  in  XBUFF ( /BUFFER/ ) 

Data  directory  record  currently  in  XBUFF  for 
the  scratch  file  currently  being  read  from. 

XBUFF  offset  to  directory  record  buffer  area 
for  scratch  file  input. 

XBUFF  offset  to  data  record  buffer  area  for 
scratch  input. 

XBUFF  offset  to  row  position  storage  for 
scratch  file  input. 

XBUFF  offset  to  column  position  storage  for 
scratch  file  input. 

Indicator  for  one  or  both  double-row  elements. 
MODE 12  = 1 implies  one  double-row  element  while 
MODE 12  = 2 implies  both  double-row  elements. 

Array  which  contains  physical  row  element 
positions . 
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COLPOS 

MAXCOL 

MAXROW 

ZMAX 

ZMIN 

LABCNT 


POSUP 


Array  which  contains  physical  column  element 
positions . 

Number  of  column  positions  present. 

Number  of  row  positions  present. 

Maximum  data  value  present  in  a row/column 
pair  time  history. 

Minimum  data  value  present  in  a row/column 
pair  time  history. 

Label  control  value  for  generation  of  LINLAB 
(in  /LABELS/)  when  input  is  from  a scratch 
file  or  multiple  items  are  specified  by  an 
Info  file  group.  Allowed  values  are: 

1 = Column  position  label 

2 = Column  label  using  user-supplied 

coordinates 

3 = Row  position  label 

4 = Time  related  label 

5 = Originally  saved  label 

Array  of  minor  positions  (e.g.,  vertical  posi- 
tion on  chord  section)  corresponding  by  index 
to  the  row  elements,  and  also  to  the  top 
double-row  element. 


POSDN  - Array  of  minor  positions  (e.g.,  vertical  posi- 
tion on  chord  section)  corresponding  by  index 
to  the  row  elements,  and  also  to  the  bottom 
double-row  element. 


/SINGIF/  Information  extracted  from  the  initial  group  of  the 
Info  file. 

KEYWRD  - Array  of  four-character  keywords  which  give 
the  meaning  for  the  corresponding  item  codes. 

ITEMK  - Two-dimensional  array  of  item  codes  which 
correspond  by  the  first  index  of  the  array 
to  the  KEYWRD  with  the  same  index. 

VALUES  - Two-dimensional  array  of  numeric  values  which 
correspond  by  both  indices  to  the  item  codes 
in  ITEMK. 
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/SIZES/  Various  fixed  numeric  values  for  the  program. 


IBFSIZ  - 
I MRS I Z - 
ISCSIZ  - 
ISRSIZ  - 
ISPSIZ  - 

ICOLMS  - 

INCTEK  - 

ICOMSZ  - 

NDIRCS  - 

IBIG 

MENBSZ  - 

IDB1S7  - 

ICLDSZ  - 

IDBLKZ  - 
NKV 

NKEYSD  - 

NITMSD  - 


Size  in  words  of  the  XBUFF  scratch  data  area. 

Size  in  words  of  a Master  File  record. 

Size  of  the  scratch  files  in  records. 

Size  in  words  of  a scratch  file  record. 

Size  of  the  scratch  files  in  records  when  all 
scratch  file  pseudo-devices  are  assigned  to 
the  same  I/O  file  number. 

Number  of  characters  allowed  in  a user  input 
line. 

Vertical  raster  spaces  required  for  each 
character  line  printed  on  the  Tektronix. 

Number  of  characters  allowed  in  the  user 
comment  line. 

Number  of  user  entry  options  in  the  user  inter- 
face output  matrix,  IDIRCT. 

A large  integer  for  use  as  a dummy  limit  for 
DO  loops. 

Size  in  words  of  the  IX  scratch  area  for  the 
menu  generation  routines. 

Size  of  the  initial  part  of  the  scratch  file 
directory. 

Size  in  words  of  a scratch  file  column 
directory  block. 

Size  in  words  of  a data  directory  block. 

Number  of  words  of  keyword  information  held 
by  the  routine  PROSET  for  each  process  option. 

Maximum  number  of  keywords  allowed  for  the 
initial  group  of  the  Info  file. 

Maximum  number  of  item  codes  which  may  be 
associated  with  each  keyword  in  the  initial 
group  of  the  Info  file. 


ICOLIF  - 

MAXATT  - 

INCLMS  - 

NCONRW  - 

NCONCL  - 

NCNRW1  - 

NCNCL1  - 

NSURRW  - 

NSURCL  - 

NSRRW1  - 


Maximum  number  of  character  positions  available 
for  one  line  of  the  Info  file. 

Maximum  number  of  values  for  each  of  the 
attached  parameters. 

Maximum  number  of  character  positions  for  a 
line  in  the  Info  file. 

Specified  number  of  rows  for  final  output 
matrix  for  generation  of  a contour  plot  when 
the  independent  variables  are  the  third  and 
second  dimensions. 

Specified  number  of  columns  for  final  output 
matrix  for  generation  of  a contour  plot  when 
the  independent  variables  are  the  third  and 
second  dimensions. 

Array  giving  the  specified  number  of  rows  for 
final  output  matrix  for  generation  of  a contour 
plot  when  the  independent  variables  include 
the  first  dimension.  When  the  plot  format  is 
cylindrical,  the  first  array  value  is  used. 

When  the  plot  format  is  rectangular,  the 
second  array  value  is  used. 

Array  similar  to  NCNRW1  giving  the  specified 
number  of  columns  for  the  final  output  matrix 
for  generation  of  a contour  plot. 

Specified  number  of  rows  for  final  output 
maxtrix  for  generation  of  a surface  plot  when 
the  independent  variables  are  the  third  and 
second  dimensions. 

Specified  number  of  columns  for  final  output 
matrix  for  generation  of  a surface  plot  when 
the  independent  variables  are  the  third  and 
second  dimensions. 

Array  giving  the  specified  number  of  rows  for 
the  final  output  matrix  for  generation  of  a 
surface  plot  when  the  independent  variables 
include  the  first  dimension.  When  the  plot 
format  is  cylindrical,  the  first  array  value 
is  used.  When  the  plot  format  is  rectangular, 
the  second  array  value  is  used. 


NSRCL1  - 

Array  similar  to  NSRRW1  giving  the  specified 
number  of  columns  for  the  final  output  matrix 
for  generation  of  a surface  plot. 

MXEDLN  - 

Maximum  number  of  command  lines  which  can  be 
stored  in  a command  sequence  block. 

NEDS I Z - 

Number  of  computer  words  in  a command  sequence 
file  (Edit  file)  direct  access  record. 

NEDCHR  - 

Number  of  characters  which  are  stored  for  a 
command  line  of  the  command  sequence  file 
(Edit  file). 

NPCYAV  - 

Specified  number  of  data  values  which  are 
generated  to  represent  one  rotor  cycle  in  the 
cycle  averaging  (AVERAGE)  process. 

/SLIST/  Block  to  contain  listing  of  the  developing  command 
step  or,  if  no  entries  have  been  made  for  the 
current  step,  contain  a listing  of  the  previous 
command  step. 


NCPOS  - 

NCROW  - 

ISLIST  - 


ISLNOW  - 


Character  position  on  the  ISLIST  line  currently 
being  generated. 

ISLIST  line  currently  being  generated  corres- 
ponding to  the  second  index  of  ISLIST. 

Array  which  contains  listing  of  the  developing 
command  step.  The  lines  are  stored  in  18A4 
format  with  the  second  index  referencing  the 
lines . 

Indicates  whether  ISLIST  contains  the  currently 
developing  step  or  the  previously  completed 
step  listing.  Allowed  values: 

0 = listing  of  currently  developing  step 

1 = listing  of  previous  step 


/STATUS/  Various  information  on  the  status  of  the  program. 

LNCNT  - Vertical  raster  position  on  the  Tektronix 

screen  for  return  of  the  cursor  after  a plot 
is  generated. 
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KOMMNT  - Array  containing  the  current  user  comment  for 
output.  Comment  is  stored  in  18A4  format. 

NKOMCH  - Number  of  the  last  non-blank  character  cur- 
rently in  KOMMNT. 

IFRSTP  - Indicator  for  the  current  plot  frame.  Allowed 
values  are: 

0 = No  plots  have  been  generated  in 

this  run. 

-1  = Single  curve  plot  frame  was  just 
generated. 

1 = (positive)  Multiple  curve  plot  frame 

is  currently  on  screen  or  paper 
containing  I curves. 


/SURPLT/  Control  and  label  values  for  surface  on  contour 


plot 

generation . 

R0W1 

Numerically  lowest  row  position  for  the  final 
output  matrix  used  for  surface  or  contour 
plot  generation. 

R0W2 

Numerically  highest  row  position  for  the  final 
output  matrix  used  for  surface  on  contour  plot 
generation . 

C0L1 

Numerically  lowest  column  position  for  the  final 
output  matrix  used  for  surface  or  contour 
plot  generation. 

C0L2 

Numerically  highest  column  position  for  the 
final  output  matrix  used  for  surface  or  contour 
plot  generation. 

NCR 

Number  of  rows  for  the  final  output  matrix 
used  for  surface  or  contour  plot  generation. 

NCC 

Number  of  columns  for  the  final  output  matrix 
used  for  surface  or  contour  plot  generation. 

NTYPEF  - 

Format  for  contour  or  surface  plot. 

1 = Cylindrical  format 

2 = Rectangular  format 
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ITRNPS 


Indicates  whether  rows  and  columns  should  be 
transposed  in  generation  of  the  final  output 
matrix. 


0 = No  transposition 

1 = Transposition 

DELZ  - Dependent  variable  increment  between  contour 
levels  for  a contour  plot. 

LABVRT  - Label  for  the  vertical  axis  of  a rectangular 
format  contour  plot. 

LABTOP  - Geographic  feature  label  to  be  placed  at  the 
top  of  a rectangular  format  contour  plot. 

LABHOR  - Label  for  the  horizontal  axis  of  a rectangular 
format  contour  plot. 

SETLEV  - Contour  height  indicator  for  CONNEC  routine. 

For  each  plot,  this  value  is  initially  set  to 
35 

-1  x 10  as  an  indicator  that  no  contours 
have  been  drawn  yet. 


/WLIST/  Keyword  block. 

NWDS  - Number  of  keywords  stored  in  IAA. 

IAA  - Two-dimensional  array  containing  keywords 
to  be  matched  with  user  command  entries . 
Keywords  are  four  characters  long  stored 
one  character  per  word  in  4A1  format.  The 
second  array  index  corresponds  to  the  key- 
word number. 


APPENDIX  C 


JOB  CONTROL  LANGUAGE  (JCL) 


TO  EXECUTE  THE  FILE  CREATION  PROGRAM. 

//ESARl  JOB  (FEAK0100. G38. 670612. DP38. TS) • •DICK* . 

//  MSGLEVEL=i . NSGCL A SS= A .CL A SS= T , NOT  IF Y=ES AN 

/•SETUP  OSN=ENGR . NE  MOL  S 

/•SETUP  DSN=ENGR.F2 1 10423 

/•SETUP  USN=ENGR.F2120423 

/•SETUP  OSN=ENGR.F2130423 

/•SETUP  USN=ENGR.F201041b 

/•SETUP  OSN=ENGR.F21S0423 

/•SETUP  OSN=ENGR.F1830414 

/•SETUP  OSN=CNGR.F 1900415 

/•SETUP  OSNsENGR.F191041b 

/•SETUP  OSN=ENGR.F 1940415 

/•SETUP  OSN^ENGR.F 19S041 b 

/•SETUP  OSN=ENGR.F 196041b 

/•SETUP  OSN=ENGR.F20404l 7 

/•SETUP  USN=ENGR.F2080419 

/•setup  osn=engr.F2350424 

/•SETUP  OSN=ENGR.F240042b 

/•SETUP  OSN=ENGR.F2100423 

/•SETUP  USN=ENGR.F20J04l 7 

//ST  EP 1 EXEC  PGM=FEAR01.T1ME=10 

//STEPL18  DU  OSN=ENGR.PNOO l ,OISP=SHN 

//FT  0 IF  00 1 OO  DSN=E  S AR • OL SMAS.OISP  — OLO 

//FT05F001  OO  OSN=ESAR .ES AH. BATCH  I N. OATA . OA  T A . O I SP=SHR 
//FT06F001  OO  SYSOUT=A 

//FT14F001  OO  UNI T— SY  SO A .OSN— ENGR. UN IT  14.01 SP— NEM • 

//  SPACE=(CYL.b> .OC8=(RELFM-F .BLXS I ZE= 1 024 . OSORG=OAJ 

//FT I2F001  OO  OSN=ENGR.UNI T 14. UNI T=AFF=FT 14F00 1 . VGL=REF= *.FT l 4F00 1 , 

//  OISP-OLO.OCB=I HECFM=F .8LKSIZE=1 024 *DSORG=OA) 

//FT  1 3F  00  1 OO  UN  I T = S Y SO A .01 SP—NE M . SPACE* (CYL.2! • 

//  OCB=(RECFM-F.BLKSIZE=6400) 

//SYSUOUMP  OO  SVSOUT=A 

//FT20F001  OO  UN1T=TPS.DSN=EN0R.NEm0LS*01SP=0LD 
//FT 2 IF  CO  1 OO  UNI T=AFF=FT20F00l . 

//  OSN=ENGR .F2 1 10423.01 SP-ULO 
//FT22F001  OO  UNIT=AFF=FT20FOOI . 

//  OSN=ENGR .F212042J.OI SP=OLD 
//FT23F001  OO  UNi T=AFF=F I20F 00 1 . 

//  OSN=ENGR.F2130423.DISP=OLO 
//FT24F001  DD  UNI T=AFF=F T20F 00 1 . 

//  OSN=ENGR.F2010415.01SP=OLO 
//FT25FOOI  DO  UNI T=AFF=F I20F 001 . 

//  0SN=ENGR.F215042J.0ISP=0LD 
//FT26F001  OO  UN I T=AFF=F T20F 00 1 • 

//  DSN=ENGR.F 183041 4. DISP=OLO 
//FT27F001  OO  UNI T=AFF=FT20F 00 1 . 

//  OSN=ENGR.F190041S.DISP=OLO 
//FT28F001  OO  UN I T=AFF=F T20F 0 0 1 . 

//  OSN=ENGR.F 1 9 1 04 1 5 .OISP-OLD 

//FT29F001  OO  UNI T=AFF=F T20F001 . 

//  OSN=ENGH.F 19404 1 5 . O 1 SP=0LD 
//FT30F001  OO  UN 1 T— AFF=F T20F 0 0 1 • 

//  OSN=ENGR.F 1 9504 1 5 .O 1 SP=CLD 

//FT31F001  OO  UNI T=AFF=F  T20FO0 1 • 

//  0SN=ENGR.F19C0415.DISP=0LD 
//FT32F001  DO  UN  I T=AFF=F T20F 00 1 . 

//  OSN=ENGR.F2040417.OISP=OLO 
//FT33F001  OO  UN  I T=AFF=FT20F00 1 . 

//  DSN  = ENGR  »F  2 0804 19 • O I SP=OLO 

//FT34F001  OO  UNI T= AFF=F T20F 00 1 . 

//  OSN=ENGR .F2350424 • 0 1 SP  = OLO 
<-/FT35F001  OO  UNI  T=AFF=FT20F00  l . 

//  OSN=ENGR .F240042 J.OI SP=OLO 
//FT36F001  OO  UNI T=AFF=F  T 20F 001 • 

//  OSN=ENGR. F2 100423. O I SP=OLO 
//FT37F001  OO  UNIT=AFF=FT20F00 1 . 

//  OSN=ENGR .F 20 304 17.01 SP=OLO 
// 
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TO  EXECUTE  THE  PROCESSING  PROGRAM  IN  BATCH* 

//ESAR6  JOB  ( OLSOMSOO .G38 .67  06 1 200  *0P38«  T *021 • *OI CK  2841*. 

//  MSGLE  VEL=  1 , NOT  IF  Y=E  S AR  • MSGCLA  SS*  A .TIM£=(2.00)*  CL  ASS-G 

//  EXEC  PGM-ATAR02 

//STEPL1B  OO  DSN=ENGR.PRO01 .OISP=SHR 
//FT0SF00I  OO  OONAME=lN 
//FT06F00I  OO  SVSOUI=A 

//F  T 0 IF  00 1 OO  O SN=E  SAR • OL  SMA S *0 1 SP— SHR 
//FT12F001  OO  UNI  T=  SY  SO  A «DSN=ENGR«  UNI  T 12*01  SP  = NE  * • 

//  SP ACE= ( C VL . 2 1 . OCB= I RECF  M=F , BLKSI ZE* 1 024 *OSORG*OA  t 

//FT  1 IF 00  I OO  DSN=ENGR.ONIT 12.0NITsAFF*FT I2F001 , VOL=REF=*.F T 12F00 l . 

//  OISP=OLO.OCSx(RECFM=F.ULKSIZE*1024,DSOHG*DA) 

//FT14F001  OO  OSN=ESAR. 1NFMHT .FORT *0ISP=SHR 

//FT13F001  OO  OSN=ESAR.C0MSEU*01SP=SHR 

//P LOTTAPE  OO  ONI T= ( TPS • *OEFER  > • VOLUME =P R 1 VAT  E • 

//  LA8EL=EXPDT=V«00S 

//IN  OO  * 

1 

GR  IO 
STEP 
YES 
JIM 

EXEC/ AA AA/ 

TERM/ 

/* 

// 


TSO  * CL 1ST*  TO  EXECUTE  THE  INTERACTIVE  MODE  OF  THE 
PROCESSING  PROGRAM. 

PROC  2 EDIT  INFO 

CONTROL  NQMSG 

FREE  OAI •ESAR.CLIST • ) 

FREE  FIFT01F001  FT0SF001  FT06F001  FT22F001) 

FREE  F(FT11F001  FTI2F001  FTljFOOl  FT14F00I) 

FREE  ATTRISCRATX) 

CONTROL  MSG 

AT  TR  SCRATX  RECFMIFI  OSORG(OA)  LRECLI1024I  3LKS I ZE ( I 0241 

ALLOC  OA1VTEMP)  USING! SCR AT X > NE • SPI2)  CYL 

ALLOC  F ( FT  1 2F  00 1 ) OA(VTEMP)  SHR 

ALLUC  FIFTllFOOli  OA(VTEMP)  SHR 

ALLOC  FIFTIJF001)  OA(«££0IT.<)  SHR 

ALLOC  F ( FT  OIF  00 1 1 OA(OLSMAS)  SHR 

ALLOC  F(FTI4F001)  O A ( • fc I NFG . • ) SHR 

ALLOC  F(FTOSFOOl)  OA ( * ) 

ALLOC  FIFT06F001)  OAI*) 

ALLOC  FIFT22F001)  OUMMY 
CALL  * ENGTEST  t AT  AROO ) * 

FREE  FIFT01F001  FT22F001) 

FREE  FIFT11F00I  FT12F001  FTUFOOl  FT14F001) 

OELETE  VTEMP 
FREE  ATTRI SCR AT X ) 
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TO  COMPILE  THE  PROCESSING  PROGRAM  OR  THE  FILE  CREATION 
PROGRAM  WHEN  THE  SOURCE  IS  CN  DATA  SET  *UWQRK*.  INPUT 
FOR  FILE  CREATION  PROGRAM  COMPILATION  MOST  INCLUDE  ALL 
FILE  CREATION  PROGRAM  SOURCE.  INPUT  FOR  COMPILATION 
OF  THE  BATCH  MODE  OF  THE  PROCESSING  PROGRAM  MUST  INCLUDE 
ALL  PROCESSING  PROGRAM  SOURCE  ANO  OUMM1ES  FOR  THE 
Tektronix  plot-io  routines  ‘anmode*.  *MOVAas*.  and 
•VCURSR*.  INPUT  FCR  COMPILATION  OF  THE  INTERACTIVE  MOOE 
OF  THE  PROCESSING  PROGRAM  MUST  INCLUDE  ALL  PROCESSING 
PROGRAM  SOURCE  AND  THE  SUBROUTINE  ‘PLOTS*  WHICH  IS  A 
REPLACEMENT  FOR  THE  TEKTRONIX  ‘CALCOMP  PREVIEW*  VERSION 
UF  'PLOTS*.  THE  OBJECT  DECK  IS  LEFT  UN  THE  DATA  SET 
• ESAR • TEMPOS JC .06 J * . 

//ESARA  JOB  ICUMPILOO.G36. 67061200. 0P36.T. 02) . *DICK  2B4 1 * . 

//  MSGLEVEL- 1 .NOT  IF  Y =E  SAR  . MSGCLA  SS=A . T I M£  = 4 S .00 ) • CLASSED 

//FORT  X EXEC  PGMslFEAAB.REGI0N  = 2S6K 
//SVSPRINT  OO  S V SOUT—  S 
//SYSTERM  OD  SYSOUT=» 

//SYSUTl  OO  UNI T— VIO. SPACE— I TRK.100) 

//SYSUT2  DO  UNIT=V10.SPACE=(CYL.J) 

//SYSLIN  OO  UN  I T=  SY  SO A .O 1 SP= ( NE  W .C A TLG ) .OCd=BLKSl Z£— 31 20 . 

//  SPACE  = 4 CYL . 10  ) >DSN=ESAR. TEMPOB JC.OBJ 

//SYSIN  DO  DSN=fcWURK.0ISP=4OLO. DELETE) 

// 


TO  LINK  THE  FILE  CREATION  PROGRAM  ON  TSO.  THE  INPUT  IS 
THE  DATA  SET  • E SAR . TEMPOd JC . OB J AS  CREATEO  ABOVE.  THE 
LOAO  MODULE  IS  LEFT  CN  THE  PARTITION  • FEAR02 • OF  THE 
LIBRARY  * ENGR. PROO 1 * . 

L I NK ( TEMPOBJC .OBJ  *)  LOAO ( *ENGR. PROO 1 4 Ft AR 02  I • ) MAP  FORTL1 B LIB(*ENGR.FO 
RTLIB* ) 

ENTRY  MAIN 


TO  LINK  THE  BATCH  VERSION  OF  THE  PROCESSING  PROGRAM  UN 
TSO.  THE  INPUT  IS  • ESAR . TEMPOB JC. OB J ' FROM  THE  COMPIL- 
ATION JCL.  THE  LOAD  MODULE  IS  LEFT  UN  THE  PARTITION 
•ATAR02*  OF  THE  LIBRARY  • ENGR . PROD 1 * . 

LINK! TEMPOBJC .OBJ  * ) LOAO ( *ENGR. PROD  1 ( AT AR02 )■ ) MAP  S I ZE ( 29000 0 • 90 000 ) F 
0RTLI8  LI B 4 • ENGR .FORTLIB* ) 

ENTRY  MAIN 


TO  LINK  THE  INTERACTIVE  VERSION  OF  THE  PROCESSING  PROGRAM 
ON  TSO.  THE  INPUT  IS  THE  DATA  SET  • ESAR. TEMPOS JC .08 J • 

FROM  THE  COMPILATION  JCL.  THE  LOAO  MOOULE  IS  THE  PARTITION 
•ATAROO*  ON  THE  LIBRARY  'ENGTEST*. 

ALLOC  F4TEKLIB)  OAl *ENGR«  TCSLQAD l ' ) 

LINK  4 TEMPOBJC .OB J *)  LOAD4 *ENGTEST4 ATAROO) • ) MAP  S I ZEI 290000. 90000 ) FOR 
TLIB  L I B4  * ENGR • TC  SLOAD 1 * 'ENGR .F  ORT  LIB*) 

INCLUDE  TEKL I B4 CALCOMP) 

ENTRY  MAIN 
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